Feuille de calcul Excel: Copier des données d'un classeur vers un autre classeur

Je ne suis pas en mesure de copier les données d'un classeur à l'autre. Mais dans un même classeur à son travail. Après l'exécution de la macro programme de la feuille de destination est vide. J'ai 2 codes. Les deux ne sont pas de travail. Mon fichier source est .xlsx format et le fichier de destination est .xlsm format. Est-il des erreurs?

Code1:

Sub mycode()

Workbooks.Open Filename:="source_file"
Worksheets("Sheet1").Cells.Select
Selection.Copy


Workbooks.Open Filename:="destination_file"
Worksheets("Sheet1").Cells.Select
Selection.PasteSpecial
ActiveWorkbook.Save


End Sub

Code 2

Sub foo2()
Dim x As Workbook
Dim y As Workbook

Set x = Workbooks.Open("source file")
Set y = Workbooks.Open("destination file")

y.Sheets("Sheet1").Range("A1").Value = x.Sheets("Sheet1").Range("A1")

x.Close

End Sub

OriginalL'auteur Star | 2016-06-21

  1. 1

    Je suppose que vous écrivez ci-dessous Code1 et Code2 de macros excel dans un fichier séparé, dire copy_paste.xlsm:

    Code 1 lorsque vous fournissez un chemin d'accès complet des fichiers de Les classeurs.ouvert:

    Sub mycode()

Workbooks.Open Filename:="C:\Users\xyz\Documents\Excel-Problem\source_file.xlsx"
Worksheets("Sheet1").Cells.Select
Selection.Copy

Workbooks.Open Filename:="C:\Users\xyz\Documents\Excel-Problem\destination_file.xlsm"
Worksheets("Sheet1").Cells.Select
Selection.PasteSpecial xlPasteValues               'xlPasteAll to paste everything
ActiveWorkbook.Save

ActiveWorkbook.Close SaveChanges:=True             'to close the file
Workbooks("source_file").Close SaveChanges:=False  'to close the file

End Sub

    Pour coller tout (formules de valeurs + + formats), l'utilisation de type pâte comme xlPasteAll.

    Code 2 travaille trop, tous vous avez besoin est de fournir chemin d'accès complet et que vous êtes absent _ dans les noms de fichiers:

    Sub foo2()
Dim x As Workbook
Dim y As Workbook

Set x = Workbooks.Open("C:\Users\xyz\Documents\Excel-Problem\source_file.xlsx")
Set y = Workbooks.Open("C:\Users\xyz\Documents\Excel-Problem\destination_file.xlsm")

'it copies only Range("A1") i.e. single cell
y.Sheets("Sheet1").Range("A1").Value = x.Sheets("Sheet1").Range("A1")

x.Close SaveChanges:=False
y.Close SaveChanges:=True

End Sub
    Je vous remercie. J'ai donné le chemin d'accès complet seulement, pour la référence je l'ai mentionné fichier source. J'ai essayé votre code, sa ne fonctionne pas. Lors du débogage après l'ouverture de la 2ème fichier le débogueur n'est pas dans la ligne suivante à la place de son arrêt le débogage de lui-même
    Quel est le message d'erreur?
    Et le 2ème fichier est un Macro activé fichier, si il ya une macro dans ce fichier qui s'exécute lorsque vous ouvrez manuellement?
    il n'affiche pas de message d'erreur. Le code fonctionne bien mais quand j'ouvre le fichier de destination, rien n'est copié. Le débogueur n'est pas montrer le moindre message d'erreur . Il est brusquement arrêté de travailler quand il atteint les Classeurs.Open Filename:="C:\Users\xyz\Documents\Excel-Problem\destination_file"
    Il semble y avoir un problème au sein de vos fichiers. Les tailles de fichier? Est 2ème fichier vide macro activé fichier? Je suppose qu'il ya un certain nombre de macros dans le 2ème fichier qui les causes de votre problème, vous devriez vérifier ces macros une fois.

    OriginalL'auteur Ajeet Shah

  2. 1

    édité pour ajouter un (minimum) de vérification du fichier

    vous devez spécifier le chemin complet du fichier, le nom et l'extension

    plus de plus vous ne pouvez ouvrir qu'fichier de destination, à l'instar de ce

    Option Explicit

Sub foo2()
    Dim y As Workbook
    Dim sourcePath As String, sourceFile As String, destFullPath As String '<--| not necessary, but useful not to clutter statements

    sourcePath = "C:\Users\xyz\Documents\Excel-Problem\" '<--| specify your source file path down to the last backslash and with no source file name
    sourceFile = "source_file.xlsx" '<--| specify your source file name only, with its extension
    destFullPath = "C:\Users\xyz\Documents\Excel-Problem\destination_file.xlsm" '<--| specify your destination file FULL path

    If Dir(destFullPath) = "" Then '<--| check is such a file actually exists
        MsgBox "File " & vbCrLf & vbCrLf & destFullPath & vbCrLf & vbCrLf & "is not there!" & vbCrLf & vbCrLf & vbCrLf & "The macro stops!", vbCritical
    Else
        Set y = Workbooks.Open(destFullPath)

        With y.Sheets("Sheet1").Range("A1")
            .Formula = "='" & sourcePath & "[" & sourceFile & "]Sheet1'!$A$1"
            .Value = .Value
        End With

        y.Close SaveChanges:=True
    End If
End Sub

    vous pouvez même ouvrir aucun d'eux à l'aide de Excel4macro

    Édité pour ajouter un fichier à vérifier. Avez-vous des On Error Resume Next ou On Error GoTo déclarations?

    OriginalL'auteur user3598756