Gunakan VB untuk menulis data dalam kawalan ke Excel baris demi baris dan lajur demi lajur

Gunakan VB untuk menulis data dalam kawalan ke Excel baris demi baris dan lajur demi lajur

Sila sebutkan excel,

malapkan xls sebagai excel.application baharu

malapkan wb sebagai excel.workbook

malapkan sht sebagai excle.lembaran kerja

'Di atas ialah pembolehubah bentuk

'beban borang

set wb =xls.workboods.add("F:data.xls")

set sht =wb.lembaran kerja(1)

Butang

'---':

malapkan r sebagai integer

r=sht.range(＂A65536＂).end(xlsup).row+1

sht(r,1)=teks1.teks

sht(r,2)=teks2.teks

wb.save

'---apabila borang bongkar

wb.tutup

xls.berhenti

Pilihan Eksplisit

Malapkan xls Sebagai Excel.Aplikasi Malapkan wb Sebagai Excel.Buku Kerja Malap sht Sebagai Excel.Lembaran Kerja

Sub Perintah Peribadi1_Klik() TryOpenXls Dim r Sebagai Integer r = sht.Julat(＂A65536＂).Tamat(xlUp).Baris + 1 Jika r = 2 Dan sht.Julat(＂A1＂).Nilai = ＂＂" Dan sht .Julat(＂B1＂).Nilai = ＂＂ Kemudian r = 1 sht.Cells(r, 1) = Text1.Teks sht.Cells(r, 2) = Text2.Teks wb.Save End Sub

Sub Peribadi TryOpenXls() Pada Ralat Sambung semula Malapkan Seterusnya x Sebagai Laluan Malap Rentetan Sebagai Laluan Rentetan = App.path & "abc.xls＂ Err.Clear x = xls.Nama Jika Err.Nombor 0 Kemudian Tetapkan xls = Excel Baharu. Permohonan Tamat Jika x = wb.Nama Jika Ralat.Nombor 0 Kemudian Pada Ralat PergiKe 0 Jika Len(Dir(laluan)) = 0 Kemudian Tetapkan wb = xls.Buku Kerja.Tambah wb.SaveAs laluan Lain Set wb = xls.Buku kerja. Buka(laluan) Tamat Jika Tamat Jika

Pada Ralat GoTo 0 Set sht = wb.Helaian Kerja(1) End Sub

Sub Borang Peribadi_Unload(Batalkan Sebagai Integer) Pada Ralat Resume Set Seterusnya sht = Tiada Jika Tidak wb Tiada Apa-apa Kemudian wb.Simpan: wb.Tutup Jika Tidak xls Tiada Apa-apa Kemudian xls.Keluar Set wb = Tiada Set xls = Tiada End Sub

Cara mengimport data yang dikira dalam vb ke dalam excel

Tidak membaca program anda

Beri anda sedikit rujukan

Tinggalkan mesej jika anda mempunyai sebarang pertanyaan

set e = CreateObject(＂Excel.Application＂)

e.boleh dilihat = 0

set nb = e.buku kerja.tambah

set ns = nb.lembaran kerja(1)

untuk i = 1 hingga 10

untuk j = 1 hingga 10

ns.cells(i,j) = cstr(i) & ＂,＂ & cstr(j)

seterusnya

seterusnya

ns.saveas ＂c:a.xlsx＂

e.berhenti

set e = CreateObject(＂Excel.Application＂)

e.boleh dilihat = 0

set nb = e.buku kerja.tambah

set ns = nb.lembaran kerja(1)

untuk i = 1 hingga 10

untuk j = 97 hingga 105

k = chr(j)

ns.range(k&i).value = "the"&i&"th"

seterusnya:seterusnya

ns.saveas ＂c:a.xls＂

e.berhenti

VB menyimpan data tatasusunan ke Excel

Sub Perintah Peribadi1_Klik()

Malapkan XlApp Sebagai Excel.Application Baharu

Malapkan xlBook Sebagai Excel.Buku Kerja

Baharu

Malapkan xlHelaian Sebagai Excel.Lembaran Kerja Baharu

XlApp.Visible = Benar

Tetapkan xlBook = XlApp.Workbooks.Add

Tetapkan xlHelaian = xlBook.Helaian Kerja(1)

Untuk i=1 hingga 20 'Susun atur anda mempunyai 21 nombor, bukan 20 nombor

xlHelaian.Julat(xlHelaian.Sel(1,i).Nilai=a1(i)

xlHelaian.Julat(xlHelaian.Sel(2,i).Nilai=b1(i)

xlHelaian.Julat(xlHelaian.Sel(3,i).Nilai=c1(i)

xlHelaian.Julat(xlHelaian.Sel(4,i).Nilai=d1(i)

xlHelaian.Julat(xlHelaian.Sel(5,i).Nilai=e1(i)

xlHelaian.Julat(xlHelaian.Sel(6,i).Nilai=f1(i)

Seterusnya i

Tamat Sub

Atas ialah kandungan terperinci Gunakan VB untuk menulis data dalam kawalan ke Excel baris demi baris dan lajur demi lajur. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!