抄的代码放在个人宏里,不能用.请路过的兄弟帮忙看看该怎么改.

Sub 工作薄间工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
这是一段多工作簿和成一簿多表的代码.
单独用是可以的.
放在个人宏模块里后,在personal,xlsb工作簿里也能用.
但在其他工作簿或新建工作簿里使用就会报错.报错图在下面.
请路过的兄弟帮个忙,
怎么让这段或其他类似代码(抄的代码

)保存的个人宏后,可以在其他任何打开的工作簿里都能正常使用.

自己抬楼

sheets(具体表名称)

我试了这代码不用改，你先新建一个，再复制代码，运行

顶一下

你试下把thisworkbook改为workbooks(1)

好巧，今天我也在研究这个问题，
利用个人宏工作簿，把指定工作簿给移动到当前活动工作簿...
定义a为 str，
修正原代码中的Thisworkbook给替换成当前活动工作簿名workbooks（a），测试成功。
前提条件：当前活动工作簿的格式要为.xlsx,如果格式是.xls就报错，不知道为啥。
Sub 合并工作簿()
Dim FilesToOpen As Variant, x As Integer, xname As String
Dim a As String
a = ActiveWorkbook.Name
On Error Resume Next
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files, *.xls*", _
MultiSelect:=True, Title:="选取要合并的文件")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "没有文件被选中！"
Exit Sub
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
xname = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
Sheets().Move after:=Workbooks(a).Sheets _
(Workbooks(a).Sheets.Count)
Workbooks(a).Sheets(Sheets.Count).Name = xname
x = x + 1
Wend
Application.ScreenUpdating = True
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

17回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六