G
goss
Hi ng.
Using xl 2003
I need to import first 9 chars from every line in text file and outpu
beginning at
A2 and down til EOF of text file.
Current file has 9500 lines, but will vary weekly
Here's my current code:
Sub Import_Test()
Dim datafile$
Dim a1 As String * 9
datafile$ = "C:\emory_fv\emory_fv.txt"
On Error GoTo DiskError
Open datafile$ For Input As #1
Sheet1.Activate
With Range("A1")
Do While Not EOF(1)
Input #1, a1
.Offset(srow, 0) = a1
srow = srow + 1
Loop
End With
Close #1
Exit Sub
DiskError:
a = MsgBox("Disk Error." & Err.Number, vbExclamation)
End Su
Using xl 2003
I need to import first 9 chars from every line in text file and outpu
beginning at
A2 and down til EOF of text file.
Current file has 9500 lines, but will vary weekly
Here's my current code:
Sub Import_Test()
Dim datafile$
Dim a1 As String * 9
datafile$ = "C:\emory_fv\emory_fv.txt"
On Error GoTo DiskError
Open datafile$ For Input As #1
Sheet1.Activate
With Range("A1")
Do While Not EOF(1)
Input #1, a1
.Offset(srow, 0) = a1
srow = srow + 1
Loop
End With
Close #1
Exit Sub
DiskError:
a = MsgBox("Disk Error." & Err.Number, vbExclamation)
End Su