Kuinka avata, tallentaa ja sulkea Excel-työkirja VBA

Kuinka avata, tallentaa ja sulkea Excel-työkirja VBA:ssa

2024-07-12

Esipuhe

Tässä osassa kerrotaan, kuinka VBA-menetelmää käytetään Excel-työkirjan avaamiseen, Excel-työkirjan tallentamiseen ja sulkemiseen sekä Avaa-, Tallenna- ja Sulje-menetelmien käyttämiseen.

1. Avaa työkirja Avaa-menetelmällä

Työkirjat.Avoin(Tiedostonimi,PäivitäLinkit,Vain luku,Muoto,Salasana,KirjoitaResPassword,Ohita-ReadOnlyResommended,Alkuperä,Erotin,Muokattava,Ilmoita,Muunnin,AddToMru,Paikallinen,Korruptoitunut-lataus)
虽参数较多，但只有FileName为必填参数，表示需要打开的工作簿文件名，关于参数说明请参考下表：

parametri	havainnollistaa
Tiedoston nimi	Avattavan työkirjan tiedostonimi ja tiedoston absoluuttinen polku vaaditaan.
Päivitä Linkit	Määrittää, kuinka työkirjan ulkoiset viittaukset (linkit) päivitetään.Mahdolliset arvot ovat 0 tai 3, mikä tarkoittaa, että ulkoisia viitteitä ei päivitetä työkirjaa avattaessa ja ulkoisten viitteiden päivittämistä työkirjaa avattaessa.
Lue ainoastaan	Kun True, se tarkoittaa työkirjan avaamista vain luku -tilassa.
Muoto	Kun avaat tekstitiedoston, määritä erotin tällä parametrilla. Mahdolliset arvot ovat 1 (sarkain), 2 (pilkku), 3 (välilyönti), 4 (puolipiste), 5 (ei mitään), 6 (muokattu merkki, määritetty Erotin-parametrilla)
Salasana	Jos avattavalle työkirjalle on asetettu avaussalasana, anna salasana tällä parametrilla.Jos salasana on asetettu, mutta tätä parametria ei ole täytetty, näyttöön tulee valintaikkuna, joka kehottaa käyttäjää antamaan salasanan.
WriteResPassword	Jos avattavassa työkirjassa on salasana rakenteen suojaamiseksi, anna vastaava salasana tällä parametrilla.
OhitaReadOnlyRecommended	Kun True, se tarkoittaa, että suositeltuja tietoja ei näytetä vain luku -tilassa.
Alkuperä	Kun avaat tekstitiedoston, käytä tätä parametria ilmoittamaan, mistä käyttöjärjestelmästä tiedosto on peräisin, jotta koodisivut ja rivinvaihdot/rivinsiirrot voidaan käsitellä oikein. Mahdollisia arvoja ovat vakiot xlMacintosh, xlWindows, xlMSDOS.
Erotin	Kun tekstitiedostoa avataan ja Muoto-parametrin arvoksi on asetettu 6, käytä tätä parametria merkin määrittämiseen erottimena. Jos useita merkkejä on asetettu, vain ensimmäinen merkki otetaan oletuksena.
Muokattava	Jos avattava tiedosto on Excel 4.0 -apuohjelma, niin kun tämän parametrin arvo on True, apuohjelma on näkyvä ikkuna, jos se on False tai tämä parametri jätetään huomiotta, apuohjelma avautuu piilotettuna Tämä parametri ei ole käytettävissä versiossa 5.0 tai uudemmissa.
Ilmoittaa	Kun avattavaa tiedostoa ei voida avata luku-kirjoitustilassa, jos tämän parametrin arvo on True, tiedosto voidaan lisätä tiedostoilmoitusluetteloon. Excel avaa tiedoston vain luku -tilassa ja kyselyn tiedostoilmoitusluettelosta ilmoittaen käyttäjälle, kun tiedosto on saatavilla.Jos tämän parametrin arvo on False tai jätetään pois, ilmoitusta ei pyydetä eikä käytettävissä olevia tiedostoja voida avata.
Muunnin	Tiedostomuuntimen indeksinumeroa yritettiin ensimmäisen kerran käyttää tiedostoa avattaessa. Jos määritetty tiedostomuunnin ei tunnista tiedostoa, yritä käyttää toista muuntajaa.
AddToMru	Jos tämän parametrin arvo on True, työtä ei lisätä viimeksi käytettyjen tiedostojen luetteloon. Oletusarvo on False
Paikallinen	Jos tämän parametrin arvo on True, tiedosto tallennetaan Excelin kielellä (mukaan lukien ohjauspaneelin asetukset). Oletusarvo on False, tiedosto tallennetaan VBA:n kielellä.
CorruptLoad	Käytettävissä olevat arvot ovat vakiot xlNormalLoad, xlRepairFile ja xlExtractData, jotka vastaavasti tarkoittavat työkirjan avaamista normaalisti, yrittämistä korjata työkirja ja yrittää palauttaa työkirjan tiedot. Oletus on xlNormalLoad

Esimerkki 1: Avaa Excel-työkirja

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

Esimerkki 2: Avaa Excel-työkirja nykyisen polun alla

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. Tallenna ja sulje tiedosto

Kun avaat Excel-työkirjan ja käytät sen sisältöä ja haluat sitten tallentaa ja sulkea sen, voit käyttää Tallenna- ja Sulje-menetelmiä.

Esimerkki: Kun olet avannut nykyisen polun Työntekijä.xlsx-tiedoston ja kirjoittanut nykyisen päivämäärän Sheet1:n soluun A1, tallenna ja sulje Työntekijä.xlsx-tiedosto. Koko koodi on seuraava:

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

Teknologian jakaminen