Ошибка 1004 метод диапазона объекта не удалось? - PullRequest
0 голосов
/ 01 августа 2011

Я почти закончил с проектом, который обновляет существующие листы данных.Но есть только одна ошибка, которая мешает мне выбрать диапазон данных, которые я хотел бы импортировать из нового файла

ChDir "C:\Users\jiarui.hou.THRUBIT\Desktop"
Dim aFile As String
Dim SheetName As String
aFile = Application.GetOpenFilename(Title:="Select Raw Data File to Import")
If aFile = "False" Then Exit Sub
Workbooks.Open Filename:=aFile

'Returns LAST USED cell
LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows,   SearchDirection:=xlPrevious).Row
LastColumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
LastCell = Cells(LastRow, LastColumn).Address
Range(A1 & ":" & LastCell).Select 'Error 1004:method'Range' of object '_Global' failed
Selection.Copy

Есть предложения?

1 Ответ

3 голосов
/ 02 августа 2011

Вы можете попробовать:

Range("A1:" & LastCell).Select

Если вы хотите выбрать от A1 до LastCell.Без кавычек A1 - просто вариант в соответствии с моим окном Locals в этом фрагменте кода.

...