Comment utiliser la programmation VBA pour spécifier un chemin de dossier et ouvrir les fichiers correspondant à un suffixe spécifique dans l'ordre

Comment écrire un chemin de dossier spécifié dans la programmation VBA et ouvrir des fichiers qui répondent aux exigences de suffixe dans l'ordre

Sous-test()

Dim myPath As String, MyName As String

myPath = "C:Documents" 'Obtenir le chemin

MyName = Dir(myPath) 'trouver le premier fichier

Si c'est vrai (MonNom, 4) = ".csv" Puis Classeurs.Ouvrez le Nom de Fichier :=monChemin et MonNom

Faire pendant que mon nom ＂＂

MyName = Dir 'trouver ensuite

Si c'est vrai (MonNom, 4) = ".csv" Puis Classeurs.Ouvrez le Nom de Fichier :=monChemin et MonNom

Boucle

Fin du sous-marin

Excusez-moi, experts, comment sélectionner le chemin du fichier et le nom du fichier dans quel contrôle mettre dans VBA ?

Sous-DateEnregistrement()

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Nom de fichier := _

ThisWorkbook.Path & "＂" & Date & ".xls", _

Format de fichier :=xlNormal, _

Mot de passe :=＂＂, WriteResPassword :=＂＂, _

ReadOnlyRecommended :=Faux, _

CreateBackup :=False

Application.DisplayAlerts = True

Fin du sous-marin

Veuillez remplacer "ThisWorkbook.Path & "＂" & Date & ".xls", _" par ""d:＂ & Date & ".xls", _", où "＂d:＂" est ce que vous voulez Enregistrer le chemin.

J'espère que ma réponse vous sera utile.

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!