目录

示例

实现代码

打开关闭的工作簿

示例

    如图所示，在“数据库．xlsx”工作簿中存有“销售数据”，在相同目录下的工作簿  希望能够将该工作簿中该工作表中的数据读入以便进行下一步操作。该如何用VBA完成？

实现代码

Option Explicit

Sub 跨工作薄读取数据()
    Dim wbkThis As Workbook
    Dim wbkOpen As Workbook
    
    Set wbkThis = thisbook
    Set wbkOpen = Workbooks.Open(wbkthisbook.Path & "\数据库.xlsx")
    
    '把打开的工作薄中的第1个工作表的内容复制到当前工作薄中
    wbkOpen.Worksheets(1).Cells.Copy wbkThis.Worksheets(1).Range("A1")
    '关闭工作蔳且不保存
    wbkOpen.Close False
End Sub

打开关闭的工作簿

当工作簿关闭时，可以利用Workbooks的Open方法打开，其语法为：

Workbooks.Open(
    FileName,
    UpdateLinks,
    ReadOnly,
    Format,
    Password,
    WriteResPassword,
    IgnoreReadOnlyRecommended,
    Origin,
    Delimiter,
    Editable, 
    Notify,
    Converter,
    AddToMru, 
    Local,
    CorruptLoad)

该方法可以返回一个工作簿对象(Workbook)。

•     参数FileName为必选参数，可以输入一个文本，表示需要打开的工作簿完整路径。该完整路径应包括完整的盘符、路径和文件名。
•     可选参数UpdateLinks表示是否更新外部数据。当其省略时，则在打开工作簿时Excel会提示用户是否更新。该参数可以指定值为0（不更新外部链接）或者3(更新外部链接)。
•     可选参数ReadOnly表示以只读方式打开工作簿，当其为True时，表示以只读方式打开工作簿。
•     可选参数Format表示当打开的文件为文本文件时，该文件以何种标点作为分隔符。该参数可以为表中的任意值。

                       WorkBooks集合Open方法Format参数

• 可选参数Password为文本，表示工作簿打开的密码（最长不超过15位）。
• 可选参数WriteResPas sword为文本，表示工作簿写保护的密码。当设置了该参数后，打开文件时必须提供密码才可以编辑，否则文件为只读。
• 可选参数IgnoreReadOnlyRecommended为逻辑值，当为True时，则在打开文件时会有忽略只读建议的提示框。
• 可选参数Origin表示当打开文本文件时，其适用的操作系统，可以为xIMacintosh、xIWindows或者xIMSDOS。
• 可选参数Delimiter表不当打开固定分隔符的文本文件时，若指定Format参数为6(用户自定义)时所选用的分隔符，则可以是长度为1的一个文本。
• 可选参数Editable表示打开加载宏文件或者模板文件时是否可见，当为True时表示可见。
• 可选参数Notify为True时，表示当Excel无法以读写模式打开文件时会将文件加入提示列表并发出警告提示。
• 可选参数Converter表示是否转换文件格式。
• 可选参数AddToMru表不是否加入最近的文件列表，当为True时表示加入。
• 可选参数Local为逻辑值，表示存储文件的语言设置，当为True时，表示按照控制面板中的设置保存，当为False时，表示按照VBA工程的语言设置保存。
• 可选参数CorruptLoad表示打开文件的模式，可以为xINormaILoad（普通）、xIRepairFile（修复文件）或者xIExtractData（数据压缩模式）。

    一般情况下，打开工作簿只需设置工作簿的完整路径即可。在打开工作簿后，由于Open方法可以返回一个工作簿对象。因而一般将Open方法的返回值赋值给一个工作簿对象变量，以便进行下一步操作。
    当需要跨工作簿复制工作表中单元格的内容时，则必须使用单元格的完整表示，以描述所要访问的单元格属于哪个工作表或哪个工作簿。否则，程序将会认为缺省的描述部分为当前工作簿或当前工作表。
 

标签：文件,VBA,066,Open,Excel,工作,参数,打开,True
来源： https://blog.csdn.net/ngbshzhn/article/details/116055240