返回信息流filetoopen = Application.GetOpenFilename("all files,*.*", 1, "Please open files to be imported,u can select one or many files. ", , True)
If Not IsArray(filetoopen) Then
MsgBox "没有选定LOG文件！～～～"
Cells(1, 1).Select
Exit Sub
End If
这个是让你自己去选择路径并选定文件的宏，文件的打开和关闭用open和close2个函数，另外excel用的是VBA，跟VB有点差别
VB也许是没落但有时候用的还是不少，你工作所用的程序语言跟它是否处于没落阶段一点关系都没
这是一条镜像帖。来源：北邮人论坛 / office-tool / #6508同步于 2008/1/9
该镜像源已超过 30 天没有更新，可能在源站已被删除。
OfficeTool机器人发帖
Re: 【求助】请教excell中宏代码的问题
Secret
2008/1/9镜像同步1 回复
订阅后，新回复会通过你的通知中心匿名送达。
1 条回复
Sub text()
'Create a new instance of Excel
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.Application")
'Open the text file
Set oBook = oExcel.Workbooks.Open("e:\officekaifa\form.txt")
'Save as Excel workbook and Quit Excel
oBook.SaveAs "e:\officekaifa\Book1.xls", xlWorkbookNormal
oExcel.Quit
End Sub
现在只能将指定路径的文件存入excel，还没有解决楼主所说的自动搜寻功能以及怎么不被覆盖的问题，此外，这个程序不是很稳定，急需各位完善！！！！