Comment ouvrir, enregistrer et fermer un classeur Excel dans VBA

2024-07-12

Préface

Cette section explique comment utiliser la méthode VBA pour ouvrir un classeur Excel, enregistrer et fermer le classeur Excel et utiliser respectivement les méthodes Ouvrir, Enregistrer et Fermer.

1. Utilisez la méthode Open pour ouvrir le classeur

Classeurs.Open(NomFichier,UpdateLinks,LectureSeule,Format,Mot de passe,WriteResPassword,Ignorer-LectureSeuleRecommandée,Origine,Délimiteur,Modifiable,Notifier,Convertisseur,AjouterÀMru,Local,Corrompu-Charger)
虽参数较多，但只有FileName为必填参数，表示需要打开的工作簿文件名，关于参数说明请参考下表：

paramètre	illustrer
Nom de fichier	Le nom de fichier du classeur qui doit être ouvert et le chemin absolu du fichier sont requis.
Liens de mise à jour	Spécifie comment les références externes (liens) dans le classeur sont mises à jour.Les valeurs possibles sont 0 ou 3, ce qui signifie respectivement ne pas mettre à jour les références externes lors de l'ouverture du classeur, et mettre à jour les références externes lors de l'ouverture du classeur.
Lecture seulement	Lorsque True, cela signifie ouvrir le classeur en mode lecture seule.
Format	Lors de l'ouverture d'un fichier texte, utilisez ce paramètre pour spécifier le délimiteur. Les valeurs possibles sont 1 (tabulation), 2 (virgule), 3 (espace), 4 (point-virgule), 5 (aucun), 6 (caractère personnalisé, spécifié par le paramètre Delimiter).
Mot de passe	Si le classeur à ouvrir a un mot de passe d'ouverture défini, utilisez ce paramètre pour donner le mot de passe.Si un mot de passe est défini mais que ce paramètre n'est pas renseigné, une boîte de dialogue apparaîtra invitant l'utilisateur à saisir le mot de passe.
Écrire un mot de passe	Si le classeur à ouvrir possède un mot de passe pour protéger la structure, utilisez ce paramètre pour donner le mot de passe correspondant.
IgnorerReadOnlyRecommandé	Lorsque True, cela signifie ne pas afficher les informations recommandées en lecture seule.
Origine	Lors de l'ouverture d'un fichier texte, utilisez ce paramètre pour indiquer de quel système d'exploitation le fichier provient, afin de gérer correctement les pages de codes et les retours chariot/sauts de ligne. Les valeurs possibles sont les constantes xlMacintosh, xlWindows, xlMSDOS.
Délimiteur	Lors de l'ouverture d'un fichier texte, si le paramètre Format est défini sur 6, utilisez ce paramètre pour spécifier le caractère comme séparateur. Si plusieurs caractères sont définis, seul le premier caractère sera pris par défaut.
Modifiable	Si le fichier à ouvrir est un complément Excel 4.0, alors lorsque la valeur de ce paramètre est True, le complément est une fenêtre visible ; s'il est Faux ou si ce paramètre est ignoré, le complément s'ouvre en masqué ; et ne peut pas être rendu visible. Ce paramètre ne peut pas être utilisé dans les versions 5.0 et supérieures.
Notifier	Lorsque le fichier à ouvrir ne peut pas être ouvert en mode lecture-écriture, si la valeur de ce paramètre est True, le fichier peut être ajouté à la liste de notification des fichiers. Excel ouvrira le fichier en mode lecture seule et interrogera la liste de notification de fichier, avertissant l'utilisateur lorsque le fichier est disponible.Si la valeur de ce paramètre est False ou omise, aucune notification n'est demandée et les fichiers indisponibles ne peuvent pas être ouverts.
Convertisseur	Le numéro d'index du convertisseur de fichier que vous avez essayé d'utiliser en premier lors de l'ouverture du fichier. Si le fichier n'est pas reconnu par le convertisseur de fichier spécifié, essayez d'utiliser un autre convertisseur.
Ajouter à Mru	Si la valeur de ce paramètre est True, le travail ne sera pas ajouté à la liste des fichiers récemment utilisés. La valeur par défaut est False
Locale	Si la valeur de ce paramètre est True, le fichier sera enregistré dans le langage d'Excel (y compris les paramètres du panneau de configuration). La valeur par défaut est False, le fichier sera enregistré dans le langage de VBA.
CorruptLoad	Les valeurs disponibles sont les constantes xlNormalLoad, xlRepairFile et xlExtractData, qui signifient respectivement ouvrir le classeur normalement, essayer de réparer le classeur et essayer de restaurer les données du classeur. La valeur par défaut est xlNormalLoad

Exemple 1 : ouvrir un classeur 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

Exemple 2 : ouvrez le classeur Excel sous le chemin actuel

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. Enregistrez et fermez le fichier

Lorsque vous ouvrez un classeur Excel et exploitez son contenu, puis que vous souhaitez l'enregistrer et le fermer, vous pouvez utiliser les méthodes Enregistrer et Fermer.

Exemple : Après avoir ouvert le fichier Employee.xlsx dans le chemin actuel, après avoir écrit la date actuelle dans la cellule A1 de Sheet1, enregistrez et fermez le fichier Employee.xlsx. Le code complet est le suivant :

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

Partage de technologie