Importare file Txt tramite Vba
Ricky
per semplificare il lavoro di chi usa il mio db
vorrei dare la possibilità di importare un file Txt cliccando un tasto
su una form.
Sapreste dirmi come posso fare?
Buona serata
Ricky
almorel
Ciao Ricky, non ti pare di essere stato un pò troppo vago ?
L' unica cosa che ti posso dire è :
File > Carica Esterni > Collega Tabelle ( o Importa)
e poi gli crei la specifica di importazione.
Ciao.
Alberto
Cosimo S,
Se ho capito bene quello che ti serve
prova con questo.
Oltre a farti scegliere il file sul Pc
lo apre direttamente con notepad
Public Function ApiTxt()
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
If dlgOpen.Show = 0 Then
Exit Function
End If
Dim NomeFile As String
NomeFile = dlgOpen.SelectedItems(1)
Dim RetVal
RetVal = Shell("notepad.exe " & NomeFile, vbNormalFocus)
End Function
Cosimo S,
Se invece vuoi importare il contenuto di un file txt in una
tabella del db prova ad adattare questo
Public Function ApriFile()
On Error GoTo Err_aprifile
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
dlgOpen.FilterIndex = 1
If dlgOpen.Show = 0 Then
Exit Function
End If
Dim NomeFile As String
NomeFile = dlgOpen.SelectedItems(1)
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Tuatabella")
Dim Xtuocampo As String
Close #1
Open NomeFile For Input As #1
While EOF(1) = 0
Line Input #1, riga
Xtuocampo = riga
rst.AddNew
rst!tuocampo = Xtuocampo
rst.Update
Wend
Close #1
rst.Close