如何在vba中用ado合并多个工作表的内容？

2018年10月15日作者：exceloffice

暂无评论

要用ado合并多个工作表的内容可以使用sql语句 union all 。

以下是在vba中用ado合并当前工作簿的所有工作表内容的示例代码：

Sub QQ1722187970()
    Excel.Application.ScreenUpdating = False
    Excel.Application.DisplayAlerts = False
    Excel.Application.Calculation = xlCalculationManual
    Dim oRecrodset As Object
    Dim oConStr As Object
    Dim sSql As String
    Dim oWk As Worksheet
    Dim arr()
    For Each oWk In Excel.Worksheets
        If oWk.Name <> "汇总" Then
            ReDim Preserve arr(k)
            arr(k) = " select * from [" & oWk.Name & "$] "
            k = k + 1
        End If
    Next
    'sql语句
    sSql = Join(arr, " union all ")
    Dim sFilePath As String
    '固定链接
    sFilePath = Excel.ThisWorkbook.FullName
    Dim sConStr As String
    Dim sVersion  As String
    Set oWk = ThisWorkbook.Worksheets.Add
    sVersion = Excel.Application.Version
    '创建连接字符串
    If sVersion <= 12 Then
        sConStr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" & sFilePath & ";Extended Properties='Excel 8.0;HDR=YES'"
    Else
        sConStr = "Provider='Microsoft.ACE.OLEDB.12.0';Data Source=" & sFilePath & ";Extended Properties='Excel 12.0;HDR=YES'"
    End If
    Debug.Print sConStr
    Set oConStr = CreateObject("ADODB.Connection")
    '使用Connection连接数据源，并用Execute方法执行对应的SQL语句生成Recrodset对象
    With oConStr
        .Open sConStr
        Set oRecrodset = .Execute(sSql)
    End With
    With oRecrodset
        '循环导入字段名
        For i = 1 To .Fields.Count
            oWk.Cells(1, i) = .Fields(i - 1).Name
        Next
        oWk.Cells(2, 1).CopyFromRecordset oRecrodset
    End With
    Excel.Application.Calculation = xlCalculationAutomatic
    Excel.Application.DisplayAlerts = True
    Excel.Application.ScreenUpdating = True
    Set oConStr = Nothing
    Set oRecrodset = Nothing
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

Sub QQ1722187970()

Excel.Application.ScreenUpdating = False

Excel.Application.DisplayAlerts = False

Excel.Application.Calculation = xlCalculationManual

Dim oRecrodset As Object

Dim oConStr As Object

Dim sSql As String

Dim oWk As Worksheet

Dim arr()

For Each oWk In Excel.Worksheets

If oWk.Name <> "汇总" Then

ReDim Preserve arr(k)

arr(k) = " select * from [" & oWk.Name & "$] "

k = k + 1

End If

sSql = Join(arr, " union all ")

Dim sFilePath As String

'固定链接

sFilePath = Excel.ThisWorkbook.FullName

Dim sConStr As String

Dim sVersion As String

Set oWk = ThisWorkbook.Worksheets.Add

sVersion = Excel.Application.Version

'创建连接字符串

If sVersion <= 12 Then

sConStr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" & sFilePath & ";Extended Properties='Excel 8.0;HDR=YES'"

Else

sConStr = "Provider='Microsoft.ACE.OLEDB.12.0';Data Source=" & sFilePath & ";Extended Properties='Excel 12.0;HDR=YES'"

End If

Debug.Print sConStr

Set oConStr = CreateObject("ADODB.Connection")

'使用Connection连接数据源，并用Execute方法执行对应的SQL语句生成Recrodset对象

With oConStr

.Open sConStr

Set oRecrodset = .Execute(sSql)

End With

With oRecrodset

'循环导入字段名

For i = 1 To .Fields.Count

oWk.Cells(1, i) = .Fields(i - 1).Name

End With

Excel.Application.Calculation = xlCalculationAutomatic

Excel.Application.DisplayAlerts = True

Excel.Application.ScreenUpdating = True

Set oConStr = Nothing

Set oRecrodset = Nothing

End Sub

如何在vba中用ado合并不同excel工作簿的内容？

2018年6月29日作者：exceloffice

暂无评论

在如何在vba中用ado访问各种不同的数据源？一文中我们介绍了用ado访问excel数据源的方法。

但是我们经常需要访问的数据位于多个不同的文件中，这时候可以采用如下的步骤：

先用连接字符串连接其中一个excel工作簿。
在SQL语句中用[Excel 12.0;Databas[……]

阅读全文

如何在vba中用ADOX.Catalog获取excel文件的工作表名称？

2018年6月27日作者：exceloffice

暂无评论

在vba中，要获取excel工作簿中的所有工作表的名称，往往需要先打开对应的excel工作簿。

本文介绍用ADOX.Catalog对象直接连接要访问的excel工作簿，实现不打开获取所有的工作表名称。

利用ADOX.Catalog对象可以获取一个数据源的框架目录，对于excel工作簿，它[……]

阅读全文

如何在vba中用ado访问各种不同的数据源？

2018年6月27日作者：exceloffice

暂无评论

Microsoft ActiveX Data Objects (ADO) 是一个数据访问技术，利用ADO可以在不打开外部数据源的情况下读取数据。它的主要优势是易于使用，高速，低内存占用，同时可以访问各种外部数据源，如Access 数据库、sql server 数据库、excel 工作簿等。

利[……]

阅读全文

ADODB.Stream对象的Charset属性值有哪些？

2018年3月15日作者：exceloffice

暂无评论

ADODB.Stream对象的Charset属性根据官方文档的说明，它是用于设置或者返回Stream对象的内容是以什么字符集来显示。

它的默认值是Unicode，其它的值可以在注册表的HKEY_CLASSES_ROOT\MIME\Database\Charset 子键中找到。

根据如何在[……]

阅读全文

在vba中用ado访问各种数据源的连接字符串汇总

2017年3月4日作者：exceloffice

暂无评论

用ado访问数据源时，连接字符串是关键，如果连接字符串错误了，往往无法访问成功。

本文收集整理了常用的在vba中用ado访问各种数据源的连接字符串。

1.连接Excel数据源的连接字符串：

Dim sConstr  As String
'在32位平台下可以用的连接字符串
sConstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties=Excel 8.0;HDR=Yes;IMEX=1"

1

2

3

Dim sConstr As String

'在32位平台下可以用的连接字符串

sConstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties=Excel 8.0;HDR=Yes;IMEX=1"

其中”HDR=Yes;”表示第一[……]

阅读全文

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

2016年10月26日作者：exceloffice

暂无评论

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

接下来介绍几种在不同的excel工作簿之间读写数据的方法：

一、打开读写法

1、单个文件固定路径打开读写法：

代码如下：

Sub QQ1722187970()
    Excel.Application.ScreenUpdating = False
    Excel.Application.DisplayAlerts = False
    Excel.Application.Calculation = xlCalculationManual
    Dim oWB As Workbook
    Dim oWK As Worksheet
    Dim sFilePath As String
    Dim iRow As Long
    '固定路径
    sFilePath = "E:\test.xlsx"
    Set oWB = Excel.Workbooks.Open(sFilePath)
    With oWB
        Set oWK = .Worksheets(1)
        With oWK
            iRow = .Range("a65536").End(xlUp).Row
            '***********************************
            '其它操作代码
            '***********************************
        End With
        Excel.Application.Calculation = xlCalculationAutomatic
        Excel.Application.DisplayAlerts = True
        Excel.Application.ScreenUpdating = True
        .Close
    End With
    MsgBox "操作完成!"
    Set oWK = Nothing
    Set oWB = Nothing
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

Sub QQ1722187970()

Excel.Application.ScreenUpdating = False

Excel.Application.DisplayAlerts = False

Excel.Application.Calculation = xlCalculationManual

Dim oWB As Workbook

Dim oWK As Worksheet

Dim sFilePath As String

Dim iRow As Long

'固定路径

sFilePath = "E:\test.xlsx"

Set oWB = Excel.Workbooks.Open(sFilePath)

With oWB

Set oWK = .Worksheets(1)

With oWK

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

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

'其它操作代码

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

End With

Excel.Application.Calculation = xlCalculationAutomatic

Excel.Application.DisplayAlerts = True

Excel.Application.ScreenUpdating = True

.Close

End With

MsgBox "操作完成!"

Set oWK = Nothing

Set oWB = Nothing

End Sub

2、任意选择单个[……]

阅读全文

如何在vba中用ado合并多个工作表的内容？

如何在vba中用ado合并不同excel工作簿的内容？

如何在vba中用ADOX.Catalog获取excel文件的工作表名称？

如何在vba中用ado访问各种不同的数据源？

ADODB.Stream对象的Charset属性值有哪些？

在vba中用ado访问各种数据源的连接字符串汇总

1.连接Excel数据源的连接字符串：

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

加站长微信

功能

如何在vba中用ado合并多个工作表的内容？

如何在vba中用ado合并不同excel工作簿的内容？

如何在vba中用ADOX.Catalog获取excel文件的工作表名称？

如何在vba中用ado访问各种不同的数据源？

ADODB.Stream对象的Charset属性值有哪些？

在vba中用ado访问各种数据源的连接字符串汇总

1.连接Excel数据源的连接字符串：

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

加站长微信

关键字

功能