title image


Smiley Re: keine ahnung. poste doch mal deinen import code o.t.
Hallo derb



Danke für Dein Interesse. Die Procedur habe ich erst zum Testen eingebaut, daher auch die fixe Abfrage "Abfrage3". Das Ergebnis dieser Abfrage ist die Ergänzung zum Basispfad (vBDir). Ich habe aber auch schon zum Testen nur den DoCmd.... mit einem Literal anstelle von 'XDat' ausprobiert, wieder mit dem gleichen Resultat.



Public Sub tab_lesen()

Dim XDat As String



vBDir = "\\xy.etcetc.com\cuberth\Data01\r7200_pz\"

Set db = CurrentDb()

Set rst = db.OpenRecordset("Abfrage3", dbOpenSnapshot)

If rst.RecordCount > 0 Then

XDat = vBDir & rst.Fields(1)



'====================================================

DoCmd.TransferSpreadsheet acImport, , "Prod_MRK", XDat, True, "ZCF1RNE1!"

'====================================================



End If

Set rst = Nothing

Set db = Nothing

End Sub





Gruss

jak

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: