Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(fs.GetFileName(filespec)) f.attributes = 1
运行Set f = fs.GetFile(fs.GetFileName(filespec)) 这句提示程序呼叫或引数不正确。是不是还要定义什麽?
fs.GetFile(文件名) 包括路径
Private Sub Command3_Click() Dim excelapp As Object Dim excelsheet As Object Dim excelbook As Object Dim col As Integer Dim row As Integer Set excelapp = CreateObject("Excel.application") excelapp.Visible = True Set excelbook = excelapp.Workbooks.Add Set excelsheet = excelapp.activesheet Me.MousePointer = 11 ListView1.SortKey = 2 ListView1.Sorted = True ListView1.Sorted = False excelsheet.Cells(1, 1) = "ネ玻" excelsheet.Cells(1, 2) = "絚腹" excelsheet.Cells(1, 3) = "め俱诀腹" excelsheet.Cells(1, 4) = "俱诀絪腹" excelsheet.Cells(1, 5) = "杆ら戳" excelsheet.Cells(1, 6) = "め兵絏1" excelsheet.Cells(1, 7) = "め兵絏2" excelsheet.Cells(1, 8) = "め兵絏3" excelsheet.Cells(1, 9) = "刺狾腹" For j = 1 To ListView1.ListItems.Count For i = 1 To ListView1.ColumnHeaders.Count - 1 excelsheet.Cells(j + 1, i) = "'" & Trim(ListView1.ListItems(j).SubItems(i)) Next Next MsgBox "旧ЧΘ!" Me.MousePointer = 0 End Sub 我的程序执行导出后在当前界面直接生成了book1.xls文件没路径。因为我不需要保存,
excelbook.saveas App.Path & "\book.xls"Set f = fs.GetFile(fs.GetFileName(App.Path & "\book.xls"))找不到档案
dim sFileName as string dim i as long sFileName = App.Path & "\book.xls" while lenb(dir(sfilename))<>0 i = i+1 sFileName = App.Path & "\book" & i & ".xls" wend
Set f = fs.GetFile(fs.GetFileName(filespec))
f.attributes = 1
包括路径
Dim excelapp As Object
Dim excelsheet As Object
Dim excelbook As Object
Dim col As Integer
Dim row As Integer
Set excelapp = CreateObject("Excel.application")
excelapp.Visible = True
Set excelbook = excelapp.Workbooks.Add
Set excelsheet = excelapp.activesheet
Me.MousePointer = 11
ListView1.SortKey = 2
ListView1.Sorted = True
ListView1.Sorted = False
excelsheet.Cells(1, 1) = "ネ玻"
excelsheet.Cells(1, 2) = "絚腹"
excelsheet.Cells(1, 3) = "め俱诀腹"
excelsheet.Cells(1, 4) = "俱诀絪腹"
excelsheet.Cells(1, 5) = "杆ら戳"
excelsheet.Cells(1, 6) = "め兵絏1"
excelsheet.Cells(1, 7) = "め兵絏2"
excelsheet.Cells(1, 8) = "め兵絏3"
excelsheet.Cells(1, 9) = "刺狾腹"
For j = 1 To ListView1.ListItems.Count
For i = 1 To ListView1.ColumnHeaders.Count - 1
excelsheet.Cells(j + 1, i) = "'" & Trim(ListView1.ListItems(j).SubItems(i))
Next
Next
MsgBox "旧ЧΘ!"
Me.MousePointer = 0
End Sub
我的程序执行导出后在当前界面直接生成了book1.xls文件没路径。因为我不需要保存,
SetAttr App.Path & "\book.xls", vbReadOnly
注意要先将 Excel 对象完全关闭才能设置。
dim i as long
sFileName = App.Path & "\book.xls"
while lenb(dir(sfilename))<>0
i = i+1
sFileName = App.Path & "\book" & i & ".xls"
wend