dsfds
dsfdsf
dsfdsf
dsfdsfds
dsdsfdsf
ds
...
erewe;ewrewr;ewrewrewr;ewrewr;ewrewrewR;
The first line that contain ; is the line number 32
How to set the schema.ini to read the txt file from the line 32, is possible?
Code: Select all
Private Sub DBImportText_TEST()
Dim intFile As Integer
Dim StarsTextFile As String, strTextFolder As String
On Error GoTo ExitHandler
StarsTextFile = "TABULATI.TXT"
strTextFolder = "C:\TEMP\"
Close #intFile
intFile = FreeFile(0)
Open strTextFolder & "schema.ini" For Output As #intFile
Print #intFile, "[" & StarsTextFile & "]"
Print #intFile, "ColNameHeader = TRUE"
Print #intFile, "CharacterSet = ANSI"
Print #intFile, "Format = Delimited(;)"
Close #intFile
Call DUE_TEST_1
Kill strTextFolder & "schema.ini"
Exit Sub
ExitHandler:
MsgBox Err.Description, vbExclamation
End Sub