Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How to save a fixed text file into a csv file
- Thread starter cassandra
- Start date
Its a little long, but here is one way:
Copy this into a module:
Declare Function apiCopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long
In your form call:
Dim sFilePath as string
dim sNewFile as string
sfilepath = 'path and file name of .txt file
snewFile = Replace(sfilepath,"txt", "csv"
apiCopyFile sfilepath ,sNewFile, False
'delete file from current directory
Kill sfilepath
Copy this into a module:
Declare Function apiCopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long
In your form call:
Dim sFilePath as string
dim sNewFile as string
sfilepath = 'path and file name of .txt file
snewFile = Replace(sfilepath,"txt", "csv"
apiCopyFile sfilepath ,sNewFile, False
'delete file from current directory
Kill sfilepath
- Thread starter
- #3
- Thread starter
- #5
- Status
