Quomodo aperire, servare et claudere Praecedo workbook in VBA

2024-07-12

Praefatio

Haec sectio introducet quomodo methodo VBA utatur ut Excel workbook aperiatur, salva et claudenda Praecedo workbook, et utatur Open, Serva, et Close methodi respective.

1. utere Open methodo aperire workbook

Workbooks.Open (FileName,UpdateLinks,ReadOnly, Forma, Password, WriteResPassword, Ignore-ReadOnlyResommended, Origo, Delimiter, Editable, Notify, Converter, AddToMru, Locus, corrump-Load)
虽参数较多，但只有FileName为必填参数，表示需要打开的工作簿文件名，关于参数说明请参考下表：

modulus	illustrare
File nomen	Tabella nomen operae quod aperiendum est et absolutum iter tabellae exigitur.
UpdateLinks	Significat quomodo notae externae (nexiones) in workbook renovantur.Valores possibilis sunt 0 vel 3, qui respectively significat notiones externas renovare cum in opere aperiendo, et ad externas operas aperiendas, renovandas.
Tantum legere	Quando verum est, significat aperiendi operis librum in tantum modo legere.
Forma	Cum fasciculum textum aperiens, hoc parametro utere ad delimitatorem designandum. Valores possibiles sunt 1 (tab), 2 (comma), 3 (spatium), 4 (semicolon), 5 (none), 6 (consuetudo character, a parametro delimiter determinatus)
Password	Si opusculum aperiendum habet tesseram aperiendam, hoc parametro utere ad tesseram dandam.Si tessera posita est, sed haec parameter non impletur, alternis buxum movebit suadente utentem ad tesseram ingrediendam.
WriteResPassword	Si opusculum aperiendum habet tesseram ad structuram tuendam, hoc parametro utere ad tesseram debitam dandam.
IgnoreReadOnlyRecommended	Cum Verum, significat non tantum informationes commendandas legere-monstrare.
Origin	Cum fasciculum textum aperiens, hoc parametro utere ad indicandum quae ratio operandi tabella ab orta est, ad paginas codicem recte tractandas et incessus redit/linea pascitur. Valores possibilis sunt constantes xlMacintosh, xlWindows, xlMSDOS.
Delimiter	Cum fasciculus textus aperiatur, si Forma parametri ad VI ponitur, hoc parametro utere ad characterem separatoris denota.
Editable	Si tabella aperienda est Excel 4.0 addendi est, tunc cum valor parametri huius verus est, addendi in fenestra visibilis est; modus et visibile fieri non potest;
certiorem	Cum tabella aperienda non potest aperiri modus scribendi legendi, si valor parametri huius verus est, tabella ad indicem notificationis tabella addi potest. Praecedo tabellam modo lecta modo aperiet et indicem notificationis tabellam tondet, usorem notificat cum tabella praesto est.Si valor parametri huius falsa est vel omittitur, nulla notitia rogatur et quaelibet lima pervulgata aperiri non potest.
Converter	Index numerus converter tabellae primum uti cum tabella aperiens conatus est. Si tabella non agnoscitur a convertente determinato, alio convertente utere.
AddToMru	Si valor parametri huius verus est, officium non addito in indice imaginum recentium adhibitorum. Default falsum
Locus	Si valor parametri huius Verus est, tabella in lingua Excel servabitur (occasus imperium includit).
CorruptLoad	Valores in promptu sunt constantes xlNormalLoad, xlRepairFile, et xlExtractData, quae respective significat normaliter aperiendi opusculi, laboratum reficere, et notitias in elaborando restituere conatur. Default est xlNormalLoad

Exemplum I: Aperi in Praecedo workbook

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

Exemplum II: Aperi Praecedo workbook sub semita

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. Servare et claudere tabella

Cum opusculum Praecedo aperis et contenta operaris, tum conservare et claudere vis, modis Servo et Closes uti potes.

Exempli gratia: Post fasciculum Employee.xlsx aperiens in semita currenti scribens datam hodiernam in cella A1 de Sheet1, serva et claude fasciculum Employee.xlsx.

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

Technology sharing