作者windknife18 (windknife18)
看板Office
标题Re: [算表] excel有办法大量转档吗
时间Wed May 6 12:58:10 2009
以下是将所有 c:\work 目录下的档案一起处理的范例，
会将所有格式存档成为 excel 标准格式，请自行修改成你想要的罗 ^_^
Sub Macro1()
Dim path As String
Dim obApp As New Excel.Application
Dim myFso: Set myFso = CreateObject("Scripting.FileSystemObject")
Dim wbnew
'要处理的目录
path = "c:\work\"
obApp.DisplayAlerts = False
obApp.ScreenUpdating = False
Dim myfiles: Set myfiles = myFso.GetFolder(path).Files
For Each myFile In myfiles
Set wbnew = obApp.Workbooks.Open(path & myFile.Name)
With wbnew.Worksheets(1)
.Cells(3, 3) = "AAAAAAAA" '测试请修改
End With
'存档并改成 excel 格式
wbnew.SaveAs Filename:=path & myFile.Name, FileFormat:=xlNormal
wbnew.Close
Set wbnew = Nothing
Next
obApp.ScreenUpdating = True
obApp.DisplayAlerts = True
Set obApp = Nothing
MsgBox ("完成!")
End Sub
※ 引述《ashero ( )》之铭言：
: 软体:
: excel
: 版本:
: 2007
: 是专业的套装软体跑出来的大量excel
: 打算弄到access上处理
: 但现在有个问题就是
: 我的档案副档名虽然是xls
: 但是我资料剖析之後要存档的时候他却显示
: 你指定的档案格式 文字档（Tab 字元分隔）
: 无法支援这个工作表的某些功能
: 所以变成我弄完要在存档
: 因为excel档的数量相当的大
: 所以浪费很多时间
: 不知道有没有办法可以在我处理的时候大量转档
: 或者是可以大量的资料剖析
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.131.84.79
1F：推 ashero:感谢！ 05/06 17:22