在excel中下标超出范围错误

请协助下面的代码，当我尝试运行代码时，它给出了“下标超出范围”的错误。当我debugging时，它突出显示下面的部分。在此先感谢。

Workbooks.Open Filename:=Path & Filename Columns("A:AI").Copy Windows("RealTime-APR").Activate Sheets("Raw").Select ActiveCell.PasteSpecial (xlPasteValues) 

Answer 1

没有必要使用。 .Activate （ INTERESTING READ ）或.Copy/.PasteSpecial xlPasteValues

尝试这个

我假设你已经声明并设置Path和Filename

 Dim thisWb As Workbook, newWB As Workbook Dim thisWs As Worksheet, newWs As Worksheet Set thisWb = ThisWorkbook Set thisWs = thisWb.Sheets("Sheet1") Set newWB = Workbooks.Open(Path & Filename) Set newWs = newWB.Sheets("RAW") newWs.Columns("A:AI").Value = thisWs.Columns("A:AI").Value 

Answer 2

试试这个代码：

 Dim wbTarget as Workbook ThisWorkbook.Columns("A:AI").Copy Workbooks.Open Filename:=Path & Filename Set wbTarget = Workbooks(Workbooks.Count) wbTarget.Activate wbTarget.Sheets("Raw").Activate wbTarget.Sheets("Raw").Range("YourTargetColumn eg A:A here").PasteSpecial xlPasteValues 

或者，使用With statement:

 ThisWorkbook.Columns("A:AI").Copy Workbooks.Open Filename:=Path & Filename With Workbooks(Workbooks.Count) .Activate .Sheets("Raw").Activate .Sheets("Raw").Range("YourTargetColumn eg A:A here").PasteSpecial xlPasteValues End With