Private Sub Command1_Click()
Dim xlapp As Object 'excel工作表對象
Dim xlbook As Object '工作簿
Dim xlsheet As Object '工作表
Set xlapp = CreateObject("Excel.Application")
Set xlbook = xlapp.Workbooks.Open("d:\testvb\1.xls")'Excel文件路徑及文件名
xlapp.Visible = True '顯示Excel窗口
Dim fs, f, f1, fc, s
folderspec = "d:\testvb\12"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
Static i As Integer
i = 1
For Each f1 In fc
filenum =FreeFile()
Open f1 For Input Asfilenum
temp2 =LOF(filenum)
temp = Input$(temp2,#filenum)
Close
xlapp.sheets(1).cells(i,10) = Mid(f1.Name, 1, Len(f1.Name) - 4)
xlapp.sheets(1).cells(i,9) = Len(f1.Name)
xlapp.sheets(1).cells(i,8) = f1.Name
xlapp.sheets(1).cells(i,7) = f1
xlapp.sheets(1).cells(i,6) = Len(f1)
xlapp.sheets(1).cells(i,5) = temp
i = i + 1
Next
'xlapp.Save
xlapp.Quit '關(guān)閉Excel
End Sub
'Private Sub Showfilelist(folderspec)
' Dimfs, f, f1, fc, s
' Setfs = CreateObject("Scripting.FileSystemObject")
' Set f= fs.GetFolder(folderspec)
' Setfc = f.Files
' ForEach f1 In fc
' List1.AddItem f1.Name
' Next
'End Sub
