![](/img/trans.png)
[英]Copying range from one workbook sheet to another workbook sheet with PowerShell
[英]copying a range from one workbook to another
有人可以幫我解決這個問題:
我在workbook1中有一個宏。 我做的是
'打開workbook2.txt
Workbooks.OpenText filename:= _
"workbook2.txt", Origin:=437, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1)), _
TrailingMinusNumbers:=True
' copy a range
Dim test As Range
Set test= Range("G971:M1000")
'close workbook2
Workbooks("workbook2").Close
'copy test in workbook1
Windows("workbook1.xlsm").Activate
Sheets("Sheet1").Select
Range("B3").Select
Selection.PasteSpecial Paste:=test, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
這導致運行時錯誤1004。
幫助的人會非常友好。
您必須先復制范圍才能粘貼它。 你需要的是什么
test.Copy
行后Set test= Range("G971:M1000")
關於Paste:=test
。 那是不對的。
Paste
是一個可選參數,它接受任何這些值。 我建議看看Excel對PasteSpecial
的幫助
xlPasteAll
xlPasteAllExceptBorders
xlPasteAllMergingConditionalFormats
xlPasteAllUsingSourceTheme
xlPasteColumnWidths
xlPasteComments
xlPasteFormats
xlPasteFormulas
xlPasteFormulasAndNumberFormats
xlPasteValidation
xlPasteValues
xlPasteValuesAndNumberFormats
用這個
bSource.Sheets("Sheet1").Range("B3").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.