玛沁宠物网

    EXCEL用VBA调用其它工作簿宏怎么不行

    发布时间:2020-09-09

    说的不是很清楚,最好发个附件,可以加QQ

    回复:

    =ThisWorkbook;请输入需要导入的Sheet名".xls":
    MsgBox Err;增加的第5句
    x = x + 1
    Wend
    ExitHandler.ScreenUpdating = True
    Exit Sub
    ErrHandler,*.count ' Then
    MsgBox "Boolean".Move After:
    Application, ", Title.xls):=True;)

    If TypeName(FilesToOpen) = ".Sheets;MicroSoft Excel文件(*;增加的第3句
    x = 1
    While x <:=FilesToOpen(x)
    for i=1 to sheets, MultiSelectSub CombineWorkbooks()
    Dim FilesToOpen
    Dim x As Integer

    On Error GoTo ErrHandler
    Application;.Count) '.GetOpenFilename(FileFilter;;要合并的文件".Sheets(ThisWorkbook;没有选中文件":="= UBound(FilesToOpen)
    Workbooks;
    GoTo ExitHandler
    End If
    dim shn '增加的第2句
    shn= InputBox(":=") '.Open Filename;增加的第1句
    dim i '.name=shn then Sheets(i);此句有修改
    next i '导入"增加的第4句
    if sheets(i).ScreenUpdating = False

    FilesToOpen = Application

    回复:

    Sub CombineWorkbooks()
    Dim FilesToOpen
    Dim x As Integer

    On Error GoTo ErrHandler
    Application.ScreenUpdating = False

    回复:

    将原先的Excel工作簿的宏模块导出,然后导入到新的Excel工作簿中。

    回复:

    Sub test()
    Dim i&
    Dim r
    r = Worksheets(1).Range("A65536").End(xlUp).Row
    For i = 1 To r
    If (Worksheets(1).Cells(i, 1) <> "") Then
    Worksheets(2).Cells(i, 1) = Worksheets(1).Cells(i, 1)
    Worksheets(3).Cells(i, 1) = Worksheets(1).Cells(i, 2)
    Worksheets(4).Cells(i, 1) = Worksheets(1).Cells(i, 3)
    Worksheets(5).Cells(i, 1) = Worksheets(1).Cells(i, 4)
    End If
    Next i

    End Sub
    我这信息有时能读有时看不到 刚回覆你 不知道成功没 再在这贴一下
    表二的第一列等於了表一的第一列 表三的俯厂碘断鄢登碉券冬猾第一列等於表一的第2列。。。不知道是这个意思吗?

    回复:

    一般录制好之后(其实更多的是我自己写代码调试的),——我这人比较懒、201012、2L的做法都可以。例如之前录制时工作表名称为201011。
    ……………………
    至于我的做法嘛,也禁止重命名工作表(工作簿倒无所谓),现在的工作表名称为201101,又要重新加载菜单。第一份用来保存数据(交给老板看的),但不要对格式进行任何改动。
    需要提醒的,然后执行宏,一式两份、201102等就不能正常工作了。——我们一般都是用按钮来做的?

    工具栏菜单是不行的,如果跨工作表(在两个或两个以上工作表上相互切换)工作时,是不是就得到结果了,要处理数据了?
    应该相当简单吧,使用2L的做法前?这时候另存一份不就是你想要的报告了么,当你换一台电脑之后,要检查工作表名称和之前录制的名称是否一样,把按钮放在那里就行了,把第二份保留表头后清空其它数据。
    假定到了第二个月,你可以添加一个空白工作表,那么把相应的数据复制到相应的工作表里1L

    回复:

    你这个问题用word的邮件合并来完成最适合不过.
    搜下相关教程吧.

    回复:

    这个问题是为了实现那个类似问题的效果?
    你把文件发我邮箱,邮箱里写清楚需求,我给你写个代码。
    wwiw414@163.com

    回复:

    Windows("1.xls").Activate
    Sheets("消息").Select

    回复:

    很简单:Run (工作簿名!宏名,参数1,参数2……) 例如调用A1.xls文件里宏名称为ABC的宏,假定宏没有参数,代码为:Run "A1.xls!ABC" 因为不需要返回值,括号省略。注意被调用宏的文件(A1.xls)要处于打开状态。

    回复:

    Sub test() Dim i& Dim r r = Worksheets(1).Range("A65536").End(xlUp).Row For i = 1 To r If (Worksheets(1).Cells(i, 1) "") Then Worksheets(2).Cells(i, 1) = Worksheets(1).Cells(i, 1) Worksheets(3).Cells(i, 1) = Worksheets(1).Cells...

    回复:

    Sub a() Dim i, j As Variant For i = 1 To 10 For j = 1 To 4 Application.Workbooks("总表.xlsx").Worksheets("Sheet1").Cells(i, j) = Application.Workbooks("表1.xlsx").Worksheets("Sheet1").Cells(i, j) Next j Next i End Sub 注意两个...

    回复:

    一部分excel工作表函数可以直接在VBA中调用如myData=Application.WorksheetFunction.Count(Range(A2:D5))相当于Excel中=Count(A2:D5)的结果。另一部分与一些变化不可以直接调用如Excel中的=IF()函数,在VBA中用IIF函数还有一些函数如=row()VBA中...

    回复:

    在所有录制的宏的语句前面加上 "Workbooks("xxx.xls").",如: Workbooks("xxx.xls").Sheets(1).Select 方便一点的话就 Dim WB As Workbook Set WB = Workbooks("xxx.xls") WB.Sheets(1).Select 刚开始自学VBA的时候也碰到这个问题,搞了好长时间

    回复:

    需要启用宏,方法请百度 。

    回复:

    一种办法:选中所有表格,再录制宏。 另一种办法:最简单的办法是用VBA修改宏,枚举每一张表,执行相同的操作步骤。

    回复:

    不用重装系统的。这只是你打开文件是不是在同一个工作区的问题,在同一个工作区就可以调用,不在同一个工作区是不能调用的。要使文件在同一个工作区打开的方法是,打开一个文件后,用菜单打开另一个文件,或者使用宏打开另一个文件。

    回复:

    Sub CombineWorkbooks() Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename(FileFilter:="MicroSoft Excel文件(*.xls),*.xls", MultiSelect:=True, Ti...

      上一篇:计算5/3÷【1/24-5/54×(-9)+‖7/8-5/3‖】的结果 下一篇:CFAK-47-无影好多钱?预售价和商城价。跟火麒麟有啥区别?火麒麟好点还是无影?

      返回主页:玛沁宠物网

      本文网址:http://0975pet.cn/view-26002-1.html
      信息删除