Chcę transponować między plikami, ale utknąłem? Kiedy transponuję tylko w jednym pliku, mój kod działa. Ale kiedy próbowałem przetransponować do innego pliku, tak się nie stało. Moja składnia jest oczywiście błędna.
Mam 80 ankiet wśród klientów, które mam nadzieję przenieść na jeden.
Mój kod, który działa to:
Sub Trans2()
Range("C14:C21").Select
Selection.Copy
Range("G6").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Ale kiedy próbuję, a następnie uruchomić go z jednego skoroszytu i transponować do innego, nie działa.
Mój „zepsuty” kod to:
Sub TransposeInfo()
'
' Transpose info between files
'
Dim mySource As String
Dim myDest As String
Dim wbkWorkbook1 As Workbook
Dim wbkWorkbook2 As Workbook
'Define path and filename
mySource = "C:\2018\CustSvy001.xls*"
myDest = "C:\2018\CustResults.xlsx"
'Open files
Set wbkWorkbook1 = Workbooks.Open(mySource)
Set wbkWorkbook2 = Workbooks.Open(myDest)
'Select items to transpose
wbkWorkbook1.Worksheets("Q8").Range("B8:B11").Select
Selection.Copy
wbkWorkbook2.Worksheets("New").Range("G6").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
'Close the two workbooks
wbkWorkbook1.Close (True)
wbkWorkbook2.Close (True)
End Sub
Jakieś sugestie? Jestem całkiem zielony na VBA, więc proszę, im mniej skomplikowane, tym lepiej.
microsoft-excel
vba
microsoft-excel-2016
Tess in Oz
źródło
źródło