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!