Sore Pa Aris
Coba pake script ini, semoga sesuai keinginan dan tidak ada debug,
Script tempatkan di module.
Option Explicit
Dim JmlDt As Integer
Dim FileName As String
Dim AktipSht As String
Dim FileOpen As String
Dim fd As FileDialog
Dim SelectItem As Variant
Public Sub Open_File()
On Error GoTo Err
Set fd = Application.FileDialog(msoFileDialogFilePicker)
FileName = ActiveWorkbook.Name
AktipSht = ActiveSheet.Name
Sheets(AktipSht).Cells.Clear
With fd
.Filters.Add "CSV (Comma Delimited)", "*.csv"
.Filters.Add "Excel", "*.xls"
.AllowMultiSelect = True
If .Show = -1 Then
For Each SelectItem In .SelectedItems
Workbooks.Open FileName:=SelectItem
FileOpen = ActiveWorkbook.Name
Copy_File
Windows(FileOpen).Close False
Next
End If
End With
Set fd = Nothing
Exit Sub
Err:
MsgBox "Open file cancel", vbExclamation, "Error"
End Sub
‘untuk mengkopi file yang dibuka.
Public Sub Copy_File()
'saya anggap data dimulai dari range (A1)
Range("A1").CurrentRegion.Copy
Windows(FileName).Activate
JmlDt = Application.WorksheetFunction.CountA(Columns("A:A"))
JmlDt = JmlDt + 1
MsgBox JmlDt
Cells(JmlDt, 1).Select
ActiveSheet.Paste
End Sub
Salam
Suyono
From: [email protected] [mailto:[email protected]]
Sent: Thursday, October 30, 2014 9:09 AM
To: [email protected]
Subject: [belajar-excel] Script macro membuka file Excel
Dear Para Master Excel,
mohon bantuannya mengenai scrip berikut :
1. Membuka file excel/CSV ( apapun jenis nama filenya )
script :
FileTerpilih = Application.GetOpenFilename _
("CSV Files (*.csv),*.csv", Title:="Open file", MultiSelect:=True)
Workbooks.Open Filename:=FileTerpilih
If VarType(FileTerpilih) = vbBoolean Then
Exit Sub
End If
pada saat dijalankan debug terjadi pada script : "Workbooks.Open
Filename:=FileTerpilih"
mohon bantuannya apakah ada yang salah dengan penulisan kodenya?
2. mengcopy data ke file yang aktif atau terpilih
contoh file "A" : file yang berisi macro
file "B" : file yang akan di copy datanya ke file A ( dengan cara
membuka file dengan script seperti diatas )
script :
Selection.Copy
Windows("A.xls").Activate ( apakah ada perintah lain untuk memanggil file A
tanpa harus mengetikan nama filenya )
Cells.Select
ActiveSheet.Paste
Mohon bantuannya...
Salam,
Aris Sarman F
