如何用vba不打开excel文件读写数据？

在编写vba代码的解决方案时，经常需要在不同的工作簿之间读写数据。

接下来介绍几种跨工作簿读写数据的方法:

一、固定路径打开读取法

代码如下：

Sub QQ1722187970()
    '固定路径读取打开法
    Dim oWB As Workbook
    Dim oWK As Worksheet
    Dim sFPath As String
    Dim iRow As Long
    sFPath = "E:\test.xlsx"
    Set oWB = Excel.Workbooks.Open(sFPath)
    With oWB
        Set oWK = .Worksheets(1)
        With oWK
            iRow = .Range("a65536").End(xlUp).Row
            '***********************************
            '其它操作代码
            '***********************************
        End With
        .Close
    End With
End Sub

Sub QQ1722187970()

'固定路径读取打开法

Dim oWB As Workbook

Dim oWK As Worksheet

Dim sFPath As String

Dim iRow As Long

sFPath = "E:\test.xlsx"

Set oWB = Excel.Workbooks.Open(sFPath)

With oWB

Set oWK = .Worksheets(1)

With oWK

iRow = .Range("a65536").End(xlUp).Row

'***********************************

'其它操作代码

'***********************************

End With

.Close

End With

End Sub

二、任意选择单个或多个文件打开读取法

代码如下:

Sub QQ1722187970()
    '选择路径读取打开法
    Dim oWB As Workbook
    Dim oWK As Worksheet
    Dim oFD As FileDialog
    Dim sFPath As String
    Dim iRow As Long
    '创建一个选择文件对话框
    Set oFD = Application.FileDialog(msoFileDialogFilePicker)
    '声明一个变量用来存储选择的文件名
    Dim vrtSelectedItem As Variant
    With oFD
        '允许选择多个文件
        .AllowMultiSelect = True
        '使用Show方法显示对话框，如果单击了确定按钮则返回-1。
        If .Show = -1 Then
            '遍历所有选择的文件
            For Each vrtSelectedItem In .SelectedItems
                '获取所有选择的文件的完整路径,用于各种操作
                sFPath = vrtSelectedItem
                Set oWB = Excel.Workbooks.Open(sFPath)
                With oWB
                    Set oWK = .Worksheets(1)
                    With oWK
                        iRow = .Range("a65536").End(xlUp).Row
                        '***********************************
                        '其它操作代码
                        '***********************************
                    End With
                    .Close
                End With
            Next
        End If
    End With
End Sub

Sub QQ1722187970()

'选择路径读取打开法

Dim oWB As Workbook

Dim oWK As Worksheet

Dim oFD As FileDialog

Dim sFPath As String

Dim iRow As Long

'创建一个选择文件对话框

Set oFD = Application.FileDialog(msoFileDialogFilePicker)

'声明一个变量用来存储选择的文件名

Dim vrtSelectedItem As Variant

With oFD

'允许选择多个文件

.AllowMultiSelect = True

'使用Show方法显示对话框，如果单击了确定按钮则返回-1。

If .Show = -1 Then

'遍历所有选择的文件

For Each vrtSelectedItem In .SelectedItems

'获取所有选择的文件的完整路径,用于各种操作

sFPath = vrtSelectedItem

Set oWB = Excel.Workbooks.Open(sFPath)

With oWB

Set oWK = .Worksheets(1)

With oWK

iRow = .Range("a65536").End(xlUp).Row

'***********************************

'其它操作代码

'***********************************

End With

.Close

End With

End If

End With

End Sub

从外部工作簿读取数据有很多种方法，本文先介绍第一种最基本的方法：打开读取法。

打开读取法顾名思义就是先打开要读取数据的工作簿，然后再读取数据。

打开工作簿可以用Workbooks对象的Open方法打开要读取数据的工作簿，它的语法如下

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

Workbooks对象的Open方法有很多参数来设置如何打开工作簿，一般情况下我们只要在FileName参数中输入要打开的工作簿的完整路径即可。

打开工作簿以后，可以用各种方法对工作簿中的数据进行读取。比如循环读取、复制粘贴读取或者是直接赋值。

最后读取完毕以后，可以将工作簿关闭。

以下是一个通用的用打开读取法跨工作簿读取数据的代码：

Sub QQ1722187970()
    Dim oWB As Workbook
    Dim oWK As Worksheet
    Dim sPath As String
    Dim oWK1 As Worksheet
    sPath = Excel.ThisWorkbook.Path & "\abc.xlsx"
    '打开同路径下的abc.xlsx文件
    Set oWB = Excel.Workbooks.Open(sPath)
    '把被打开工作簿的工作表赋值给变量
    Set oWK = oWB.Worksheets(1)
    Set oWK1 = Excel.ThisWorkbook.Worksheets("sheet2")
    With oWK1
        '直接赋值法读取数据
        .Range("a1:b4").Value = oWK.Range("a1:b4").Value
        '复制粘贴法读取数据
        oWK.Range("a1:b4").Copy .Range("a6")
        '其它代码***********
    End With
    '关闭打开的工作簿
    oWB.Close
    Set oWK = Nothing
    Set oWK1 = Nothing
    Set oWB = Nothing
End Sub

Sub QQ1722187970()

Dim oWB As Workbook

Dim oWK As Worksheet

Dim sPath As String

Dim oWK1 As Worksheet

sPath = Excel.ThisWorkbook.Path & "\abc.xlsx"

'打开同路径下的abc.xlsx文件

Set oWB = Excel.Workbooks.Open(sPath)

'把被打开工作簿的工作表赋值给变量

Set oWK = oWB.Worksheets(1)

Set oWK1 = Excel.ThisWorkbook.Worksheets("sheet2")

With oWK1

'直接赋值法读取数据

.Range("a1:b4").Value = oWK.Range("a1:b4").Value

'复制粘贴法读取数据

oWK.Range("a1:b4").Copy .Range("a6")

'其它代码***********

End With

'关闭打开的工作簿

oWB.Close

Set oWK = Nothing

Set oWK1 = Nothing

Set oWB = Nothing

End Sub

除了用Workbooks对象的Open方法打开工作簿以外，还可以用GetObject函数打开工作簿，但是它们的本质是一样的，都是要打开工作簿来读取数据。

用打开读取法读取外部数据是一种最常用也是最基础的方法，它可以适用于任何特殊的数据读取情景，缺点就是在读取大量数据时，速度会比较慢。

在后续的文章中，将介绍用ado不打开工作簿直接读取数据的方法。

打赏

发表评论取消回复

近期文章

功能

如何用vba不打开excel文件读写数据？

发表评论 取消回复

近期文章

关键字

功能

发表评论取消回复