У меня есть рабочая книга (в формате Excel 2003), данные которой непрерывно текут в трех листах. Я хочу создать макрос в новой книге (Excel 2010), в которой все эти данные на всех трех листах предыдущей книги будут вставлены в один лист моей новой книги один за другим. Я бы предпочел, чтобы макрос открыл диалоговое окно для просмотра файла, где данные действительно присутствуют. Кто-нибудь может мне помочь?Macro для копирования данных из другой книги
При поиске я нашел что-то вроде приведенного ниже. Но это не тот, который я хочу точно.
Sub Open_Workbook()
Dim myFile As String
myFile = Application.GetOpenFilename _
(Title:="Please choose a file to open", _
FileFilter:="Excel Files .xls (.xls),")
If myFile = False Then
MsgBox "No file selected.", vbExclamation, "Sorry!"
Exit Sub
Else
Workbooks.Open Filename:=myFile
End If
End Sub
И мы бы предпочли, если вы покажете, что вы пробовали до сих пор? – rusk
При поиске я нашел что-то вроде приведенного ниже. Но это не тот, который я хочу точно. –
Sub Open_Workbook() Dim Myfile As String \t Myfile = Application.GetOpenFilename _ \t (Title: = "Пожалуйста, выберите файл для открытия", _ \t FileFilter: = "Excel Files * .xls * (* .xls *), ") Если myFile = False Затем \t MsgBox" Файл не выбран. ", VbExclamation," Извините! " Exit Sub Else \t Workbooks.Open Имя файла: = Myfile End If End Sub –