Si la feuille n'existe pas, le créer (VBA Excel)

Je suis de l'importation de données à partir de Microsoft Access, la détection de l'erreur ne semble pas fonctionner. Si le code tente de créer une fiche qui existe déjà, à continuer et à définir la destinationsheet à la présente fiche. Des conseils wold être apprécié.

For ix = stWW To edWW
    For modi = 0 To mdcnt - 1

  On Error Resume Next
    Sheets.Add(After:=Sheets(Sheets.Count)).Name = ix & " " & modvar(modi)
  On Error GoTo 0

    Set DestinationSheet = Worksheets(ix & " " & modvar(modi))


     'strSQL2 = "SELECT 1302_Scan.* FROM 1302_Scan;"
     strSQL = "SELECT " & ix & "_" & modvar(modi) & ".* FROM " & ix & "_" & modvar(modi) & ";"

    'MsgBox strSQL & "|" & strSQL

    DestinationSheet.Cells.Clear

utilisé plus haut dans le code, peut être à l'origine de l'erreur, à @sous2817 de la suggestion.

On Error GoTo continue
Do While Not IsNull(modvar(ii))
    mdcnt = mdcnt + 1
    ii = ii + 1

Loop
continue:
On Error GoTo 0

InformationsquelleAutor user2457541 | 2013-06-20

4

Ce peut être un moment où l'usage contrôlé de on Error Resume Next est acceptable. Peut-être quelque chose comme:
```
On Error Resume Next
Sheets.Add(After:=Sheets(Sheets.Count)).Name = ix & " " & modvar(modi)
On Error GoTo 0
```
cela suppose que ix & "" & modvar(modi) résout à un nom propre.

Un peu de contexte à ma réponse:

À la base, vous n'avez pas vraiment si la fiche existe ou pas, vous venez de soins qu'il existe. La création d'une feuille avec un nom de feuille va générer une erreur et ne pas créer de la nouvelle feuille (à cause de l'erreur). Alors, enveloppant la création, dans un "on error resume next" permettra de créer de la feuille, s'il n'existe pas et ignorez l'erreur si elle existe déjà. La ligne suivante (on error goto 0) active la vérification des erreurs d'arrière, de sorte que vous pouvez traiter correctement les erreurs qui peuvent survenir ultérieurement dans votre code.
- Merci beaucoup, mon problème est presque à résoudre. Le dernier problème que je vais avoir est de savoir si la fiche existe déjà, il dit "Impossible de renommer une feuille à le même nom qu'une autre feuille, un objet référencé bibliothèque ou un classeur référencé par visual basic. J'ai eu un erreur goto (ajout d'une édition de code ci-dessus), mais j'ai mis l'erreur goto par la suite j'ai donc pensé qu'il ne serait pas causer un problème?
- La logique est la même que la droite? Renommer une feuille à quelque chose et si le nom de la feuille existe déjà, sauter cette partie et de continuer. C'est qu'une supposition correcte? Si oui, il suffit d'ajouter un autre on error resume next droit au-dessus de la ligne qui renomme ton code et on error goto 0 à droite après la ligne. Si ce n'est pas correct, vous aurez besoin d'éditer votre post et je vais prendre un autre coup de couteau à elle.
- J'ai édité ma question. Ce que vous dites prend tout son sens, j'ai essayé de faire une chose semblable pour l'essentiel avec un iserror(ws.nom). Mais le code est en cours d'exécution, comme si l'on error resume next n'est pas là.
- Je ne pense pas que iserror(ws.nom) est le même que ce que je suggère. Pouvez-vous éditer votre post pour y inclure la ligne où vous êtes renommage de feuilles? Je ne vois pas que ce que vous avez posté ci-dessus.
- Les draps.Ajouter(After:=Sheets(Sheets.Count)).Nom = ix & "" & modvar(modi) est la ligne où il est dit que je suis le renommage. Dans le classeur, il crée une feuille* tente alors de le nommer ix & "" & modvar(modi).
- DANGNAMBIT! C'était mon erreur antérieure de contrôle avec la boucle while (En question). J'ai commenté tout et mettre une valeur pour mdcnt et de travail. J'ai pensé que l'on Error goto 0 tout mettre par défaut?
- La chose principale est que vous l'avez tous triés! On Error Goto 0 devrait revenir au comportement par défaut, donc je ne suis pas entièrement sûr de savoir pourquoi il n'est pas sans voir le code dans le contexte. De toute façon, content que ça triés et bonne chance pour le reste de votre projet!
- Dans le cas où quelqu'un regarde cela, elle doit être Sur Error goto -1 (0). Merci encore.
InformationsquelleAutor sous2817
0

Cela pourrait être une vieille question, et il ya beaucoup de bonnes et de travail de la réponse(tout autour de l'internet).
Mais je viens de tombé sur moi-même et pas de réponse, j'ai trouvé directement satisfait de mon style de programmation.
En fin de compte j'ai fini par re-création d'un try...catch...finally structure et je pense qu'il est très propre.
Donc pour les gens tombent sur ce problème et la recherche d'un generalzied et faciles à adopter la solution:
```
    Dim sheetToCreate As Worksheet
    Dim sheetToCreateName As String: sheetToCreateName = "Name"

    On Error GoTo Catch
Try:
    Set sheetToCreate = wb.Worksheets(sheetToCreateName)
    GoTo Finally
Catch:
    Set sheetToCreate = wb.Worksheets.Add
    sheetToCreate.Name = sheetToCreateName 
Finally:
    On Error GoTo 0
```
InformationsquelleAutor Robin B

Vous devez vous connecter pour publier un commentaire.