MS EXCEL VBA - je besoin d'importer une feuille de calcul à partir d'un fichier excel à un autre

J'ai besoin d'importer une feuille de calcul d'un classeur excel (nom de feuille de calcul n'est pas toujours le même) et l'importer dans le classeur actif.

Voici ce que j'ai à ce jour:

Sub openFile_Click()
    FileToOpen = Application.GetOpenFilename _
    (Title:="Please choose a Report to Parse", _
    FileFilter:="Report Files *.rpt (*.rpt),")

    If FileToOpen = False Then
        MsgBox "No File Specified.", vbExclamation, "ERROR"
        Exit Sub
    Else
        Workbooks.Open Filename:=FileToOpen

        Dim wb1 As Workbook
        Dim wb2 As Workbook
        Set wb1 = ActiveWorkbook
        wb2 = Workbooks(FileToOpen)     'This is where I am stuck..I can't give it a static name

        For Each Sheet In wb1.Sheets
            If Sheets.Visible = True Then
                Sheets.Copy After:=wb2.Sheets(wb2.Sheets.Count)
            End If

        Next Sheet

    End If

OriginalL'auteur Larry | 2012-03-20

  1. 2

    Ce code fonctionne pour ce que vous voulez vous le souhaitez. J'ai fait les corrections suivantes.

    1. Déplacer toutes les déclarations de variables au début de la procédure, de sorte qu'elles sont déclarées avant de les utiliser. C'est juste de la bonne pratique.

    2. Affecter votre Classeur Actif de la variable avant d'ouvrir le classeur deuxième donc, il y a un seul classeur ouvert.

    3. Votre pour chaque énoncé a eu quelques corrections.

      Sub openFile_Click()
Dim wb1 As Workbook
Dim wb2 As Workbook

Set wb1 = ActiveWorkbook

FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a Report to Parse", _
FileFilter:="Report Files *.rpt (*.rpt),")

If FileToOpen = False Then
    MsgBox "No File Specified.", vbExclamation, "ERROR"
    Exit Sub
Else
    Set wb2 = Workbooks.Open(Filename:=FileToOpen)

    For Each Sheet In wb2.Sheets
        If Sheet.Visible = True Then
            Sheet.Copy After:=wb1.Sheets(wb1.Sheets.Count)
        End If
    Next Sheet

End If

End Sub

    OriginalL'auteur Matt Demaine

  2. 0

    Définir le Classeur ouvert, (ou le classeur plus tard, sans le chemin)

    Ici, vous allez:

    Sub openFile_Click()
FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a Report to Parse", _
FileFilter:="Report Files *.rpt (*.rpt),")

If FileToOpen = False Then
    MsgBox "No File Specified.", vbExclamation, "ERROR"
    Exit Sub
Else
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Set wb1 = ActiveWorkbook
    Set wb2 = Workbooks.Open(FileToOpen)




    For Each Sheet In wb1.Sheets
        If Sheet.Visible = True Then
            Sheets.Copy After:=wb2.Sheets(wb2.Sheets.Count)
        End If

    Next Sheet

End If
End Sub

    OriginalL'auteur Abe Gold