Dear Pak Suyono, terima kasih pak atas bantuannya.,
On Thursday, October 30, 2014 3:18 PM, "SUYONO [email protected] [belajar-excel]" <[email protected]> wrote: 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
