加了密码的ecxel表格怎样转到文档中
先将文件名列表放在一个文本文件或EXCEL文件里,本例中暂定为文本文件 dir。txt。
(1。进入DOS窗口:开始→运行→CMD+回车。
(2。 进入存放那些表格的文件夹。
(3。 输入 dir /b *。 xls >dir。txt
然后见一个EXCEL表,暂定名为 汇总表。xls ,并打开此表
然后运行下面的宏。
Sub mv2one()
'' 宏由 nugget 制
'
' 目的:将一个文件中的1个表分别复制到统一的文件中去。
'
Dim mystring(100) As String ‘如果你的文件大雨100,就改一下这个数
Windows("汇总表。xls")。A...全部
先将文件名列表放在一个文本文件或EXCEL文件里,本例中暂定为文本文件 dir。txt。
(1。进入DOS窗口:开始→运行→CMD+回车。
(2。 进入存放那些表格的文件夹。
(3。 输入 dir /b *。
xls >dir。txt
然后见一个EXCEL表,暂定名为 汇总表。xls ,并打开此表
然后运行下面的宏。
Sub mv2one()
'' 宏由 nugget 制
'
' 目的:将一个文件中的1个表分别复制到统一的文件中去。
'
Dim mystring(100) As String ‘如果你的文件大雨100,就改一下这个数
Windows("汇总表。xls")。Activate
icount = Worksheets。
Count
strpath = ActiveWorkbook。Path
'
drv = Left(strpath, 3)
ChDrive drv
ChDir strpath
j = 1
Open "dir。
txt" For Input As #1 ' 打开输入文件。
Do While Not EOF(1) ' 循环至文件尾。
Input #1, mystring(j)
Debug。
Print mystring(j), j ' 在立即窗口中显示数据。
j = j + 1
Loop
Close #1 ' 关闭文件
For i = 1 To j - 1 Step 1
Workbooks。
Open Filename:=mystring(i), UpdateLinks:=0, notify:=0
Sheets(1)。Select
Sheets(1)。
Copy After:=Workbooks("汇总表。xls")。Sheets(i)
Workbooks(mystring(i))。Close savechanges:=False
Next i
Workbooks("汇总表。
xls")。Save
End Sub。收起