Rumus VBA Macro Excel Import Data

Mengcopy-paste nilai di Excel dengan teknik import file

Isikan pada module:

----

Sub Upload()

Dim sImportFile As String, sFile As String

Dim sThisBk As Workbook

Dim vfilename As Variant

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Set sThisBk = ActiveWorkbook

sImportFile = Application.GetOpenFilename( _

FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx", Title:="Open Workbook")

If sImportFile = "False" Then

MsgBox "Belum ada File yang anda pilih!"

Exit Sub

End If

Application.Workbooks.Open Filename:=sImportFile

Set sThisBk = Workbooks.Open(sImportFile)

sThisBk.Sheets("NILAI").Range("E13:N52").Copy

sThisBk.Close (False)

Range("e13:n52").Select

ActiveSheet.Paste

MsgBox "ANDA YAKIN MENGISI DATA NILAI DISINI KLIK OK, MAKA ALHAMDULILLAH DATA NILAI SUDAH DISALIN PADA HALAMAN INI"

End Sub

----

Berikut SourceCode di GitHub: https://github.com/ryanbekabe/ExcelVBAMacroImportData/blob/master/module.bas