Как скопировать содержимое из открытого файла Excel в макрокоманду - PullRequest
Новая
       47

Как скопировать содержимое из открытого файла Excel в макрокоманду

0 голосов
/ 10 октября 2019

Я новичок в VBA. Я понял, как найти путь к файлу и открыть файл Excel с помощью VBA, но я действительно пытаюсь открыть и импортировать содержимое файла Excel в мою книгу макросов Excel. Есть ли простой код для этого? Место назначения всегда будет одинаковым, но место для копирования листов всегда будет другим. Все коды, которые я нашел, чтобы помочь мне, не позволяют мне просто импортировать содержимое файла Excel, который я выбрал. 

Option Explicit

Public Sub CommandButton1_Click()
'create a file dialog object
Dim filedialog As Office.filedialog
'dim is need to create a variable namee
'in this case my variable name is filedialog
'if i type filedialog it will open the office file dialog box
Set filedialog = Application.filedialog(msoFileDialogFilePicker)

With filedialog
    .Filters.Clear
' this clears previous filters used
.Title = "Select a 24 sample Raw Data File"
' now we need to apply the filters that we want to show up
.Filters.Add "Excel Files Only", "*.xlsx?", 1
' this is saying only 1 excel file can be added
.AllowMultiSelect = False

Dim sFile As String, oWS As String, wB As Workbook, activeWB As Workbook
Set activeWB = Application.ActiveWorkbook

' for the file to open
If .Show = True Then
    sFile = .SelectedItems(1)
        End If
    End With
'
   If sFile <> "" Then
    Workbooks.Open sFile

    End If

' Finally got the excel to open. Now trying to get it to export the data into the current file folder''''

End Sub

Public Sub CommandButton2_Click()

End Sub
...