Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Skriva till exselworkbok (samma och samma plats)i ett redan öppet exsel ark?????

Postades av 2005-09-06 16:36:12 - Per Höglund, i forum visual basic - allmänt, Tråden har 3 Kommentarer och lästs av 586 personer

Har testat olika lösningar men de skapar nya workboks med samma namn

som den nedan

Private Sub Form_Load()
Dim Excel As Object
Dim SökVäg As String
SökVäg = "\\smo\trading\tr.xls"

Set Excel = CreateObject("Excel.Application")
Excel.Application.Workbooks.Open SökVäg
Excel.Visible = True

With Excel
.Worksheets(1).Range("a1") = "faan"
.Worksheets(1).Range("a2") = 1
.Range("A3").Select
End With

Set Excel = Nothing



vill få in det i ett exelark som redan är öppet och datera upp cellerna

nedan en function som tar fram datan, som sedan skall in.


Public Function VBINKORN(intab1 As String, utsokv As String, NROO As Integer, ifra As String, sp As Integer)
Dim ska As String
Dim spoj As New Collection

Dim spoj1 As New Collection
Dim spoj2 As New Collection
Dim spoj3 As New Collection
Dim spoj4 As New Collection
Dim spoj5 As New Collection
Dim soi As Table
Dim a1 As Variant
Dim a2 As Variant
Dim a3 As Variant
Dim a4 As Variant
Dim a5 As Variant
Dim a6 As Variant
Dim dqt As Recordset
Dim db As Database
If SIGNALLA(NROO) = 1 Then
'ska = oTabortd(ugrtab)

Set db = CurrentDb
'Set dk = db.CreateQueryDef("")
'sql = "select " & intab1 & ".ind," & intab1 & ".fc_k," & intab1 & ".a1," & intab1 & ".fc," & intab1 & ".ant," & intab1 & ".sigsr from " & intab1 & " where (((" & intab1 & ".sigsr)=" & spejgan(sp) & "))"

sql = "select " & intab1 & ".fc_k," & intab1 & ".a1," & intab1 & ".fc," & intab1 & ".ant from " & intab1
Set tok = db.OpenRecordset(sql, dbOpenSnapshot)
While Not tok.EOF

spoj.Add tok(0) & vbCrLf
spoj1.Add tok(1) & vbCrLf
spoj2.Add tok(2) & vbCrLf
spoj3.Add tok(3) & vbCrLf


tok.MoveNext

Wend
tok.Close

db.Close

Select Case spoj.Count

Case Is > 0
a1 = Replace(spoj(1), vbCrLf, "")
a2 = Replace(spoj1(1), vbCrLf, "")
a3 = Replace(spoj2(1), vbCrLf, "")
a4 = Replace(spoj3(1), vbCrLf, "")

Case Is < 1

a1 = 0
a2 = 0
a3 = 0
a4 = 0

End Select

{Meningen att exelapplicationen skall liggar här


a6 = spejgan(0) & ":" & spejgan(4) & ":" & a1 & ":" & a2 & ":" & a3 & ":" & a4 & ":" & intab1
DoEvents
Open utsokv & intab1 & ifra & ".txt" For Append As #1
Print #1, a6
Close #1






invasko(NROO) = 1
SIGNALLA(NROO) = 0

End If
End Function


Svara

Sv: Skriva till exselworkbok (samma och samma plats)i ett redan öppet exsel ark?

Postades av 2005-09-06 19:11:13 - Niklas Jansson

Du får ursäkta, men det är fullständigt omöjligt att förstå vad du skriver och vad din kod gör.

Skriv exakt vad det är du vill göra.
Du har en excelbok med ett antal ark?
Vill du duplicera den?
Vill du redigera den?


Svara

Sv:Skriva till exselworkbok (samma och samma plats)i ett redan öppet exsel ark?

Postades av 2005-09-07 12:23:32 - Lars-Erik Eriksson

Du skapar ju nya Excelinstanser varje gång. Nöj dig med en och behåll en referens till den (eller det aktuella workbook-instansen) så kan du uppdatera samma workbook enkelt. Vill du ha mer hjälp får du förklara bättre hur det är tänkt att fungera.


Svara

Sv: Skriva till exselworkbok (samma och samma plats)i ett redan öppet exsel ark?

Postades av 2005-09-07 17:13:12 - Per Höglund

en ny lösning där jag får in allt i exel, dock kvarstår ett problem deta är att det blir tidsförskjutning eller att den ej triggar.

om jag sen knackar på formen som skall skicka data till exel så uppdateras det ?????
trotts ticker !


Finns det ett annat sätt än med

With Excel
.Worksheets(1).Range("a" & NROO + 220 & "") = intab1


function i sin helhet.


exelarket matas regelbundet med siffror och strings.

Functionen ligger på en ticker form.
Tickerformens utformning se nedanför functionen






Public Function VBINKORN(intab1 As String, utsokv As String, NROO As Integer, ifra As String, sp As Integer)
Dim ska As String
Dim spoj As New Collection
Dim Excel As Object

Dim spoj1 As New Collection
Dim spoj2 As New Collection
Dim spoj3 As New Collection
Dim spoj4 As New Collection
Dim spoj5 As New Collection
Dim soi As Table
Dim a1 As Variant
Dim a2 As Variant
Dim a3 As Variant
Dim a4 As Variant
Dim a5 As Variant
Dim a6 As Variant
Dim dqt As Recordset
Dim db As Database

Set Excel = GetObject(, "Excel.Application")

If SIGNALLA(NROO) = 1 Then
Set db = CurrentDb
sql = "select " & intab1 & ".fc_k," & intab1 & ".a1," & intab1 & ".fc," & intab1 & ".ant from " & intab1
Set tok = db.OpenRecordset(sql, dbOpenSnapshot)
While Not tok.EOF
spoj.Add tok(0) & vbCrLf
spoj1.Add tok(1) & vbCrLf
spoj2.Add tok(2) & vbCrLf
spoj3.Add tok(3) & vbCrLf




tok.MoveNext

Wend
tok.Close
'dk.Close
db.Close

Select Case spoj.Count

Case Is > 0
a1 = Replace(spoj(1), vbCrLf, "")
a2 = Replace(spoj1(1), vbCrLf, "")
a3 = Replace(spoj2(1), vbCrLf, "")
a4 = Replace(spoj3(1), vbCrLf, "")

Case Is < 1

a1 = 0
a2 = 0
a3 = 0
a4 = 0

End Select

Excel.Visible = True

With Excel
.Worksheets(1).Range("a" & NROO + 220 & "") = intab1
.Worksheets(1).Range("b" & NROO + 220 & "") = spejgan(0)
.Worksheets(1).Range("c" & NROO + 220 & "") = Time
.Worksheets(1).Range("d" & NROO + 220 & "") = Replace(a1, ".", ",")
.Worksheets(1).Range("e" & NROO + 220 & "") = Replace(a2, ".", ",")
.Worksheets(1).Range("f" & NROO + 220 & "") = Replace(a3, ".", ",")
.Worksheets(1).Range("g" & NROO + 220 & "") = Replace(a4, ".", ",")
.Worksheets(1).Range("h" & NROO + 220 & "") = "s5"
'.Range("A3").Select
End With




invasko(NROO) = 1
SIGNALLA(NROO) = 0

End If
Set Excel = Nothing

End Function


********************************************************

Option Compare Database
Private Sub Form_Load()
Me.TimerInterval = 1
End Sub
***************
Sub form_timer()
Dim kalle As Form
Dim ska As String
Dim nuu As Variant
Static assa As Integer
Form.Visible = False
If assa Then
ska = oms.VBINKORN("vb3", "\\smo\euro\", 1, 5, 2)

Else

End If

assa = Not assa
End Sub


Svara

Nyligen

  • 14:24 CBD regelbundet?
  • 14:23 CBD regelbundet?
  • 14:22 Har du märkt några verkliga fördel
  • 09:09 Vill du köpa medicinska tester?
  • 12:47 Vem beviljar assistansen – kommune
  • 14:17 Någon med erfarenhet av hemstädnin
  • 14:14 Bör man använda sig av en båtförme
  • 14:12 Finns det någon intressant hundblo

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 569 627
27 953
271 710
991
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies
Expand
next previous
Close

Previous

0/0

Next