Rumah >tutorial komputer >pengetahuan komputer >Gabungkan semua lembaran kerja menggunakan VBA

Gabungkan semua lembaran kerja menggunakan VBA

王林
王林ke hadapan
2024-01-16 21:12:051129semak imbas

Gabungkan semua lembaran kerja menggunakan VBA

Gabungkan semua lembaran kerja menggunakan VBA

Sub ADO联合查询()

Malapkan cnn Sebagai Objek, SQL$, MyPath$, MyFile$, m&, n&

Tetapkan cnn = CreateObject("ADODB.Connection")

[a:b].KosongkanKandungan

MyPath = ThisWorkbook.Path & ""

MyFile = Dir(MyPath & "*.xls")

Lakukan Semasa MyFile ""

Jika MyFile ThisWorkbook.Name Then

n = n + 1

Jika n = 1 Kemudian cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended;Sumber Data=" & MyPath & MyFile

m = m + 1

Jika m >49 Maka

Julat("a" & Rows.Count).Tamat(xlUp).Offset(1).CopyFromRecordset cnn.Execute(SQL)

m = 1

SQL = ""

Tamat Jika

Jika Len(SQL) Kemudian SQL = SQL & " kesatuan semua "

SQL = SQL & "pilih f1,'" & Ganti(MyFile, ".xls", "") & "' daripada [Excel 8.0;hdr=no;Database=" & MyPath & MyFile & "].[Sheet1$ A2:A]"

Tamat Jika

Fail Saya = Dir()

Gelung

Jika Len(SQL) Kemudian Julat("a" & Rows.Count).Tamat(xlUp).Offset(1).CopyFromRecordset cnn.Execute(SQL)

cnn.Tutup

Set cnn = Tiada

Tamat Sub

用vba插入合并填充单元格

Button Sub Perintah Peribadi1_Klik()

'最后一行r,上面插入一行,横向合并单元格n格,填充数据s

Malap n, s, kol, r, tmp

'----设定----

n = 2 '横向合并单元格n格

s = "XXXXXX" '填充数据s

col = "A" '以col列为操作的最左列

'----执行----

Dengan ActiveSheet

r = .Sel(65536, col).Tamat(xlUp).Baris

.Rows(r).Masukkan xlShiftDown '插入行

Dengan .Sel(r, col).Ubah saiz(1, n)

.Gabung '合并单元格

.Nilai = s '填充数据

Tamat Dengan

Tamat Dengan

Tamat Sub

Atas ialah kandungan terperinci Gabungkan semua lembaran kerja menggunakan VBA. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!

Kenyataan:
Artikel ini dikembalikan pada:docexcel.net. Jika ada pelanggaran, sila hubungi admin@php.cn Padam