Comment faire pour copier et coller des feuilles de calcul entre les classeurs Excel?

Comment transférer une feuille de calcul à partir d'une application excel(1) à un autre(2) si vous avez deux excel apps ouvrez à l'aide de VBA?

Le problème est que le programmeur utilise du JavaScript, et lorsque vous cliquez sur le bouton qui transfère le web des données vers un classeur xl, il ouvre une nouvelle application Excel.

Je sais que la partie du code sera:

Workbooks.Add
ActiveSheet.Paste    
' Once I returned to the original , i.e. excel app(1).

OriginalL'auteur | 2008-12-23

Pas testé, mais quelque chose comme:

Dim sourceSheet As Worksheet
Dim destSheet As Worksheet

'' copy from the source
Workbooks.Open Filename:="c:\source.xls"
Set sourceSheet = Worksheets("source")
sourceSheet.Activate
sourceSheet.Cells.Select
Selection.Copy

'' paste to the destination
Workbooks.Open Filename:="c:\destination.xls"
Set destSheet = Worksheets("dest")
destSheet.Activate
destSheet.Cells.Select
destSheet.Paste

'' save & close
ActiveWorkbook.Save
ActiveWorkbook.Close

Noter que cela suppose que la destination existe déjà. Il est assez facile d'en créer un s'il n'en a pas.

J'ai eu deux applications Excel ouvrir. Ne serait-ce pas juste de travailler si seulement l'une des applications Excel est ouvert?
Oui cela ne fonctionne que dans un délai d'une application Excel.

OriginalL'auteur Stewart Johnson

Vous pourriez faire quelque chose avec les Api.

Private Const SW_SHOW = 5
Private Const GW_HWNDNEXT = 2
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" _
(ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetWindow Lib "user32" _
(ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
(ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Function FindWindowPartialX(ByVal Title As String) As Long
Dim hWndThis As Long
hWndThis = FindWindow(vbNullString, vbNullString)
While hWndThis
Dim sTitle As String, sClass As String
sTitle = Space$(255)
sTitle = Left$(sTitle, GetWindowText(hWndThis, sTitle, Len(sTitle)))
sClass = Space$(255)
sClass = Left$(sClass, GetClassName(hWndThis, sClass, Len(sClass)))
If InStr(sTitle, Title) > 0 Then
FindWindowPartialX = hWndThis
Exit Function
End If
hWndThis = GetWindow(hWndThis, GW_HWNDNEXT)
Wend
End Function
Sub CopySheet()
Dim objXL As Excel.Application
' A suitable portion of the window title such as file name '
WinHandle = FindWindowPartialX("LTD.xls")
ShowWindow WinHandle, SW_SHOW
Set objXL = GetObject(, "Excel.Application")
objXL.Worksheets("Source").Activate
objXL.ActiveSheet.UsedRange.Copy
Application.ActiveSheet.Paste
End Sub

+1 pour montrer que l'OP comment être hardcore w/ Win32.
Mes yeux! (Je déteste le code VB.)

OriginalL'auteur Fionnuala

Je suis en utilisant ce code, espérons que cette aide!

Application.ScreenUpdating = False
Application.EnableEvents = False
Dim destination_wb As Workbook
Set destination_wb = Workbooks.Open(DESTINATION_WORKBOOK_NAME)
worksheet_to_copy.Copy Before:=destination_wb.Worksheets(1)
destination_wb.Worksheets(1).Name = worksheet_to_copy.Name
'Add the sheets count to the name to avoid repeated worksheet names error
'& destination_wb.Worksheets.Count
'optional
destination_wb.Worksheets(1).UsedRange.Columns.AutoFit
'I use this to avoid macro errors in destination_wb
Call DeleteAllVBACode(destination_wb)
'Delete source worksheet
Application.DisplayAlerts = False
worksheet_to_copy.Delete
Application.DisplayAlerts = True
destination_wb.Save
destination_wb.Close
Application.EnableEvents = True
Application.ScreenUpdating = True

' From http://www.cpearson.com/Excel/vbe.aspx           
Public Sub DeleteAllVBACode(libro As Workbook)
Dim VBProj As VBProject
Dim VBComp As VBComponent
Dim CodeMod As CodeModule
Set VBProj = libro.VBProject
For Each VBComp In VBProj.VBComponents
If VBComp.Type = vbext_ct_Document Then
Set CodeMod = VBComp.CodeModule
With CodeMod
.DeleteLines 1, .CountOfLines
End With
Else
VBProj.VBComponents.Remove VBComp
End If
Next VBComp
End Sub

OriginalL'auteur Javier Torón

Je vais me contenter de publier la réponse de python afin que les gens ont une référence.

from win32com.client import Dispatch
from win32com.client import constants
import win32com.client
xlApp = Dispatch("Excel.Application")
xlWb = xlApp.Workbooks.Open(filename_xls)
ws = xlWb.Worksheets(1)
xlApp.Visible=False
xlWbTemplate = xlApp.Workbooks.Open('otherfile.xls')
ws_sub = xlWbTemplate.Worksheets(1)
ws_sub.Activate()
xlWbTemplate.Worksheets(2).Copy(None,xlWb.Worksheets(1))
ws_sub = xlWbTemplate.Worksheets(2)
ws_sub.Activate()
xlWbTemplate.Close(SaveChanges=0)
xlWb.Worksheets(1).Activate()
xlWb.Close(SaveChanges=1)
xlApp.Quit()

OriginalL'auteur Thorvaldur

Ce code de copie et colle toutes les feuilles (pas de valeurs de cellule) à partir d'une source classeur un classeur de destination:

Private Sub copypastesheets()
Dim wbSource, wbDestination As Object
Dim nbSheets As Integer
Set wbSource = Workbooks("your_source_workbook_name")
Set wbDestination = Workbooks("your_destination_workbook_name")
nbSheets = wbDestination.Sheets.Count - 1
For Each sheetItem In wbSource.Sheets
nbSheets = nbSheets + 1
sheetItem.Copy after:=wbDestination.Sheets(nbSheets)
Next sheetItem
End Sub

OriginalL'auteur Jaime Sacristán

-1

Vous pouvez aussi le faire sans aucun code. Si vous cliquez sur le petit onglet de la feuille au bas de la feuille, et sélectionnez "Déplacer ou Copier", vous obtiendrez une boîte de dialogue qui vous permet de choisir le classeur ouvert pour le transfert de la feuille.

Voir ce lien pour des instructions plus détaillées et des captures d'écran.

OriginalL'auteur e.James
-2

Pour être honnête, je ne sais pas que vous le pouvez. Si vous venez de configurer une instance de test et ouvrir Excel à deux fois, parce que c'est ce que vous parlez de passe, si vous avez le nom d'un classeur "test1" et un autre "test2" si vous essayez de déplacer un classeur, ou même une feuille de calcul entre les deux applications qu'ils ignorent totalement les uns des autres. J'ai aussi remarqué un comportement étrange, tout simplement manuellement couper et coller à partir d'Excel exemple 1 et de l'instance d'Excel 2.

Vous pourriez avoir à écrire deux macros genre de déposer et puis un pick-up à partir d'un emplacement que vous partagez entre eux. Peut-être un bouton de commande sur la barre d'outils.

Peut-être l'un des super-excel les gars ici ont une meilleure réponse.

OriginalL'auteur CABecker
-2

façon la plus simple:
```
Dim newBook As Workbook  
Set newBook = Workbooks.Add
Sheets("Sheet1").Copy Before:=newBook.Sheets(1)
```
Cette solution ne prend pas en compte qu'il y a deux instances d'excel dans les utilisateurs en question.

OriginalL'auteur Nick
-2

lorsque vous collez dans Word, la mise en forme/formule d'excel existe toujours. Cliquez simplement sur la carte de clip et sélectionnez l'option "conserver le texte seulement".

OriginalL'auteur toosh

Vous devez vous connecter pour publier un commentaire.