Cara membuka, menyimpan dan menutup buku kerja Excel di VBA

2024-07-12

Kata pengantar

Bagian ini akan memperkenalkan cara menggunakan metode VBA untuk membuka buku kerja Excel, menyimpan dan menutup buku kerja Excel, dan menggunakan masing-masing metode Buka, Simpan, dan Tutup.

1. Gunakan metode Buka untuk membuka buku kerja

Buku kerja.Buka(NamaFile,PerbaruiTautan,HanyaBaca,Format,KataSandi,KataSandiTulisUlang,Abaikan-HanyaBacaDisarankan,Asal,Pembatas,DapatDiedit,Beritahukan,Konverter,TambahKeMru,Lokal,MuatRusak)
虽参数较多，但只有FileName为必填参数，表示需要打开的工作簿文件名，关于参数说明请参考下表：

parameter	menjelaskan
Nama file	Nama file buku kerja yang perlu dibuka, dan jalur absolut file tersebut diperlukan.
Tautan Pembaruan	Menentukan bagaimana referensi eksternal (link) di buku kerja diperbarui.Nilai yang mungkin adalah 0 atau 3, yang masing-masing berarti tidak memperbarui referensi eksternal saat membuka buku kerja, dan memperbarui referensi eksternal saat membuka buku kerja.
Hanya Baca	Jika Benar, berarti membuka buku kerja dalam mode baca-saja.
Format	Saat membuka file teks, gunakan parameter ini untuk menentukan pembatas. Nilai yang mungkin adalah 1 (tab), 2 (koma), 3 (spasi), 4 (titik koma), 5 (tidak ada), 6 (karakter khusus, ditentukan oleh parameter Pembatas)
Kata sandi	Jika buku kerja yang akan dibuka memiliki set kata sandi pembuka, gunakan parameter ini untuk memberikan kata sandi.Jika kata sandi telah ditetapkan tetapi parameter ini tidak diisi, kotak dialog akan muncul meminta pengguna untuk memasukkan kata sandi.
TulisKata Sandi Ulang	Jika buku kerja yang akan dibuka memiliki kata sandi untuk melindungi strukturnya, gunakan parameter ini untuk memberikan kata sandi yang sesuai.
AbaikanReadOnlyRecommended	Jika Benar, berarti tidak menampilkan informasi yang direkomendasikan hanya baca.
Asal	Saat membuka file teks, gunakan parameter ini untuk menunjukkan dari sistem operasi mana file tersebut berasal, untuk menangani halaman kode dan pengangkutan kembali/umpan baris dengan benar. Nilai yang mungkin adalah konstanta xlMacintosh, xlWindows, xlMSDOS.
Pembatas	Saat membuka file teks, jika parameter Format diatur ke 6, gunakan parameter ini untuk menentukan karakter sebagai pemisah. Jika beberapa karakter diatur, hanya karakter pertama yang akan diambil secara default.
Dapat diedit	Jika file yang akan dibuka adalah add-in Excel 4.0, maka ketika nilai parameter ini adalah True, add-in tersebut adalah jendela yang terlihat; jika False atau parameter ini diabaikan, add-in akan terbuka secara tersembunyi mode dan tidak dapat ditampilkan; Parameter ini tidak dapat digunakan di versi 5.0 dan lebih tinggi.
Memberitahu	Ketika file yang akan dibuka tidak dapat dibuka dalam mode baca-tulis, jika nilai parameter ini True, file dapat ditambahkan ke daftar notifikasi file. Excel akan membuka file dalam mode baca-saja dan melakukan polling pada daftar pemberitahuan file, memberi tahu pengguna ketika file tersedia.Jika nilai parameter ini adalah False atau dihilangkan, tidak ada pemberitahuan yang diminta dan file apa pun yang tidak tersedia tidak dapat dibuka.
Konverter	Nomor indeks pengonversi file pertama kali dicoba digunakan saat membuka file. Jika file tidak dikenali oleh konverter file yang ditentukan, coba gunakan konverter lain.
Tambahkan ke Mrru	Jika nilai parameter ini Benar, pekerjaan tidak akan ditambahkan ke daftar file yang terakhir digunakan. Standarnya adalah Salah
Lokal	Jika nilai parameter ini adalah True, file akan disimpan dalam bahasa Excel (termasuk pengaturan panel kontrol). Defaultnya adalah False, file akan disimpan dalam bahasa VBA.
Beban Rusak	Nilai yang tersedia adalah konstanta xlNormalLoad, xlRepairFile, dan xlExtractData, yang masing-masing berarti membuka buku kerja secara normal, mencoba memperbaiki buku kerja, dan mencoba memulihkan data di buku kerja. Standarnya adalah xlNormalLoad

Contoh 1: Buka buku kerja Excel

Sub OpenExcelFile()
    
    Dim strFileName As String
    ' 定义文件名称
    strFileName = "D:VBAEmployee.xlsx"
    
    ' 打开工作簿
    Workbooks.Open Filename:=strFileName
    
End Sub
1
2
3
4
5
6
7
8
9
10

Contoh 2: Buka buku kerja Excel di bawah jalur saat ini

Sub OpenExcelFile()

    Dim strFileName As String
    Dim strFilePath
    
    ' 定义文件名称
    strFileName = "Employee.xlsx"
    ' 获取当前路径
    strFilePath = ThisWorkbook.Path
    
    ' 打开工作簿
    Workbooks.Open Filename:=strFilePath & "" & strFileName
    
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14

2. Simpan dan tutup file

Saat Anda membuka buku kerja Excel dan mengoperasikan isinya, lalu ingin menyimpan dan menutupnya, Anda bisa menggunakan metode Simpan dan Tutup.

Contoh: Setelah membuka file Employee.xlsx di jalur saat ini, setelah menulis tanggal saat ini di sel A1 Sheet1, simpan dan tutup file Employee.xlsx. Kode lengkapnya adalah sebagai berikut:

Sub WriteCurrentDate()
    
    ' 申明变量
    Dim strFileName As String
    Dim strFilePath
    Dim ws As Worksheet
    Dim wb As Workbook
    
    ' 定义文件名称
    strFileName = "Employee.xlsx"
    ' 获取当前路径
    strFilePath = ThisWorkbook.Path
    
    ' 打开工作簿
    Workbooks.Open Filename:=strFilePath & "" & strFileName
    
    ' 定义sheet1工作表对象以及当前打开的工作簿对象
    Set ws = ActiveWorkbook.Worksheets("Sheet1")
    Set wb = ActiveWorkbook
    
    ' A1单元格写入当前日期
    ws.Range("A1").Value = Date
    
    ' 保存并关闭文件
    wb.Save
    wb.Close
    
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

Berbagi teknologi