VBA erreur d'Exécution 91. La difficulté à mettre des variable d'objet

Je ne pense pas que la réponse est trop compliqué, je dois juste être manque quelque chose de fondamental. Pour donner le contexte, le code et cette macro ont été écrites par un employé qui a plus de travail ici, quand j'ai commencé. J'ai juste utilisé un certain nombre de fois sur une base mensuelle et il a soudainement m'a donné une erreur aujourd'hui, lorsque j'ai tenté d'exécuter le script VBA.

Il me donne la norme Run Time Error 91 (Object variable or block variable not set). Le code est spécifiquement:

Dim DataBook As Workbook
Set DataBook = Workbooks.Open(Import_File_Path)
DataBook.Worksheets("Sheet1").Name = "Database"

    Application.DisplayAlerts = False
    Tool.Worksheets("Database").Delete      <-----highlighted error line
    Application.DisplayAlerts = True

DataBook.Worksheets("Database").Move before:=Tool.Worksheets(1)

Le script VBA est de tenter de données brutes à partir d'une feuille Excel que j'ai déjà généré, et importer le fichier (ainsi qu'une partie de la Set ligne) et d'effectuer un certain nombre de calculs à effectuer pour créer plus de données et de statistiques à partir de là. Toutefois, le problème je le sens se trouve dans l'article que j'ai posté ici, et les objets et variables.

En surbrillance la ligne d'erreur est celui qui dit Tool.Worksheets("Database").Delete. Quand j'ai ajouté une Montre de la ligne de la valeur des états Object Variable or With block variable not set. Ce qui m'amène à croire que quelque chose n'est pas réglé comme il se doit comme un objet, mais encore une fois je suis VBA débutant et je ne suis pas convaincu de mes sentiments d'intestin.

Pour ce que sa vaut le coup, je dois mentionner que j'ai ajouté un autre Watch à la ligne qui dit DataBook.Worksheets("Sheet1").Name = "Database" et la valeur pour que les états Subscript out of range. Je pensais que cela signifiait, il pourrait aussi être un problème, mais je suis sûr à 100% il y a un onglet dans le fichier que je suis l'importation qui est nommé Sheet1.

  • Qu'est-ce que l'Outil de ... de quel type d'objet il s'agit?
  • L'outil est actuellement définie "Comme ThisWorkbook".
InformationsquelleAutor user3494029 | 2014-04-03
  1. 4

    Vous avez besoin de quelques lignes de code qui établissent Outil comme un classeur. Quelque chose comme:

    Dim Tool As Workbook
Set Tool = ActiveWorkbook
    • Merci beaucoup pour la réponse rapide. Où dans mon codage devrais-je placer ces lignes? Avant l'Application".DisplayAlerts" ligne? Im nouveau un nouveau VBA mec, donc je ne suis pas entièrement sûr de ce que Im faire. Merci encore
    • Avant d'ouvrir le nouveau classeur..........................
    • Il a travaillé! Je vous remercie. J'ai essayé d'autres sites internet et vous êtes à la réponse simple qu'il peut être a été le meilleur de tous. Juste pour vous informer que vous avez fait ma journée par la fixation de ce! Merci une tonne
    • Un plaisir de vous aider!............................
    • Cela s'appelle une déclaration et vit normalement en haut de la fonction, de la classe ou de l'application en fonction de son champ d'application
    InformationsquelleAutor Gary's Student
  2. 0

    Vous pouvez utiliser

    Dim DataBook As Workbook
Set DataBook = Workbooks.Open(Import_File_Path)

DataBook.Worksheets("Sheet1").Name = "Database"

Application.DisplayAlerts = False
DataBook.Worksheets("Database").Delete      <-----Change
Application.DisplayAlerts = True

DataBook.Worksheets("Database").Move before:=Tool.Worksheets(1)
    InformationsquelleAutor GauravSingh