Excel - Fermer/Sauvegarder à l'aide de nom de chemin complet

Est-il un moyen d'insérer le chemin d'accès complet au lieu du nom de fichier lors de la fermeture et de l'enregistrement d'un classeur

E. g ci-dessous

Workbooks("BOOK1.XLS").Close SaveChanges:=true
Workbooks("C:\user\docs\BOOK1.XLS").Close SaveChanges:=true

Raison pour laquelle je demande, c'est que j'ai déjà nommé tous mes chemins d'accès complet dans les chaînes 

Workbooks(i).Close SaveChanges:=true

De sorte que pour chaque i dans le tableau etc

  • Cette ligne de code Workbooks("C:\user\docs\BOOK1.XLS").Close SaveChanges:=true est la réponse à votre question, donc je ne suis pas vraiment sûr de ce que vous demandez...
  • Ce qui s'est passé lorsque vous avez essayé? Ca a marché ou pas?
  • Je suis en train d'utiliser des tableaux en vba e.g Classeurs(i).Close SaveChanges:=vrai ca n'a pas l'air de fonctionner
  • Essayez Workbooks.Close SaveChanges:=True
  • Comment montrer le code complet de ce que vous avez écrit au lieu de 3 lignes au hasard. Comprendre la définition de votre tableau, où vous remplir ce que vous êtes en train de tenter de faire enregistrer les fichiers, quelle est l'erreur que vous obtenez et ce que la ligne de ce qui se passe sur. Qui peut aider au diagnostic.
InformationsquelleAutor Elixir | 2015-06-30
  1. 7

    Le Classeur objet peut être utilisé comme lors de votre première déclaration

    Workbooks("BOOK1.XLS").Close

    car il utilise l' .Nom de la propriété (sans le chemin complet)

    La Workbooks.Open méthode sur l'autre main, prend comme paramètre le chemin d'accès complet et nom du fichier:

    Workbooks.Open "C:\user\docs\BOOK1.XLS"

    Il peut prendre le nom de fichier sans chemin d'accès, mais il va le chercher dans le dossier par défaut

    .

    Il y a 2 options que j'utilise pour résoudre des problèmes similaires, où toutes les chaînes comprennent chemin d'accès complet et nom du fichier:

    1. définir une référence au classeur lorsque vous l'ouvrez:

      Set wb = Workbooks.Open("C:\user\docs\BOOK1.XLS")

      • vous pouvez ensuite fermer comme ça

        wb.Close SaveChanges:=True

    2. Extraire le nom du fichier à partir de la chaîne contenant à la fois le, chemin d'accès et nom de fichier:

      wbName = Mid(fullName, InStrRev(fullName, "\") + 1)

      • ensuite, vous pouvez la fermer comme dans votre première ligne:

        Workbooks(wbName).Close SaveChanges:=true

    InformationsquelleAutor paul bica