Jag behöver importera en textfil (med fälten Om textfilen innehåller värden för alla fälten i tabellen beöver du inte någon importspecifikation. I alla andra fall, t.ex. om tabellen innehåller ett räknar-fält, måste du först skapa en sådan inne i Accessdatabasen. I mitt exempel nedan heter importspecifikationen "New items import schema". Tackar! 2 frågor: 1) Early binding ger dig intellisence när du programmerar och bättre prestanda när koden körs. Du måste dock tänka på att lägga till en reference till rätt version av servern (Access i det här fallet). Om användaren har en tidigare version kan man stöta på problem.Importera textfil till Access
separerade med TAB) till en tabell i en Access
databas, med VBA i Powerpoint, någon som
vet hur man göra?Sv: Importera textfil till Access
Lägg först till en referens till Access i VBA-projektet.
Sub ImportToAccess()
Dim oAcApp As Access.Application
Set oAcApp = New Access.Application
oAcApp.OpenCurrentDatabase ("X:\My files\db1.mdb")
MsgBox oAcApp.CurrentDb.Name
oAcApp.DoCmd.TransferText TransferType:=acImportDelim, _
SpecificationName:="New items import schema", _
TableName:="tblPerson", FileName:="D:\My files\New items.txt", _
HasFieldNames:=False
oAcApp.CurrentDb.Close
Set oAcApp = Nothing
End Sub
Du kan också köra med "Late binding" och skippa referensen:
Dim oAcApp As Object
Set oAcApp = CreateObject("Access.Application")
... i övrigt samma kod
Sv:Importera textfil till Access
1) Skillnad mellan late binding och inte?
2) Går det inte att definera import specifikationerna ifrån VBA koden istället för att först skapa dem i Access?
/MiZSv: Importera textfil till Access
2) Tyvärr finns det mig veterligen inget sätt att skapa importspecifikationen med VBA.