Hai BeExceller khususnya mas Nang, Tentang : NB: Pertanyaan untuk Mas Kid: 1. kenapa kalau cekrip yang berwarna merah saya buang jadi error? bagaimana cara memanggil workbook yang benar, sudah lupa nih.... . 2. Apakah dengan cara Workbooks.open merupakan membuka Excel baru?(dua excel dua file) 3. Bagaimana caranya membuka file excel masih dalam satu excel dengan cekrip (satu excel membuka dua file)? Sukron.
A. Kalau memang ada object-nya (contoh dalam hal ini adalah object workbook), maka pakailah object-nya daripada pakai properti tertentu dari si object (seperti properti Name dan sebagainya). Contoh : dim wbkPemanggil as workbook, wbkTerpanggil as workbook set wbkPemanggil = thisworkbook set wbkterpanggil= workbooks.open "fullname si workbook" wbkpemanggil.activate B. Methods Open milik Workbooks akan membuat file Excel dibuka dalam instance Excel yang sama. Regards, Kid 2017-06-20 13:47 GMT+07:00 nangagus [email protected] [belajar-excel] < [email protected]>: > > > Walaikumsalam warahmatullah, > > Coba di modules diketik Cekrip: > Function KeBukak(FileName As String) > Dim ff As Long, ErrNo As Long > On Error Resume Next > ff = FreeFile() > Open FileName For Input Lock Read As #ff > Close ff > ErrNo = Err > On Error GoTo 0 > Select Case ErrNo > Case 0: KeBukak = False > Case 70: KeBukak = True > ' Case Else: Error ErrNo > End Select > End Function > > Kemudian pada Userform yang dibuat masukkan Cekrip di bawah ini pada salah > satu command button: > > Private Sub CommandButton1_Click() > Dim adu As String > Dim aduh As String > Dim hsl As String > Dim dikopi As String > adu = ComboBox1.Value > aduh = ComboBox2.Value > hsl = ThisWorkbook.Name > dikopi = ActiveWorkbook.Path & "\" & adu & "\" & aduh > If KeBukak(dikopi) = False Then > Workbooks.Open dikopi > Else > Application.ScreenUpdating = False > End If > Windows(hsl).Activate > Workbooks(aduh).Sheets("Sheet1").Range("A1:H10").Copy > Sheet1.Cells(1, 1).PasteSpecial xlPasteValues > Application.CutCopyMode = False > Windows(aduh).Close False > Application.ScreenUpdating = True > End Sub > > NB: Pertanyaan untuk Mas Kid: 1. kenapa kalau cekrip yang berwarna merah > saya buang jadi error? bagaimana cara memanggil workbook yang benar, sudah > lupa nih.... . 2. Apakah dengan cara Workbooks.open merupakan membuka Excel > baru?(dua excel dua file) 3. Bagaimana caranya membuka file excel masih > dalam satu excel dengan cekrip (satu excel membuka dua file)? Sukron. > > Salam > > Nangagus > > On 6/18/17 12:38 AM, Ryan Sacth [email protected] [belajar-excel] > wrote: > > > Assalamualaikum Wr.Wb > > Halo semuanya. > > Saya punya kasus, siapa tahu para suhu disini bisa bantu. > > Saya ingin mengisi atau melihat data pada file excel yang saya sebut > *Master_file* dimana sumber datanya dari file excel yang tertutup didalam > folder. Gambarnya gini: > > [image: Inline image] > Pada *Master_file* akan diisi dengan data-data excel yang ada di folder > A,B,C. Di dalam *Master_file *ada pilihan menggunakan semacam ComboBox > untuk ComboBox1 yakni di populated dengan nama-nama folder tersebut dan > ComboBox2 adalah nama file yang ada dalam folder A,B,C dan dalam file > tersebut adalah file excel dengan nama bulan (Januari.xlsx, februari.xlsx, > dst). Kemudian akan dimunculkan data pada *Master_file *dengan logika > sederhananya seperti: > > Asumsi: > Semua bentuk format data baik column dan row yang ada dalam folder adalah > sama. Nama field pada kolom A-Z sama begitupun dengan rownya. > > > Bahasa Manusia: > > 1. Jika ComboBox1 terpilih adalah *Folder A* dan ComboBox2 terpilih > adalah file Bulan *Januari.xlsx*, maka Sheet1 (Range A1:H10) pada > *Master_file > *akan menampilkan data dari folder dan file dimaksud. Begitu pula jika > dipilih adalah folder dan file lain. > 2. Jika ComboBox1 terpilih adalah *All Folder* dan ComboBox2 terpilih > adalah file Bulan *Januari.xlsx* maka Sheet1 (Range A1:H10) pada > *Master_file *akan menampilkan data penjumlahan untuk file bulan > *Januari.xlsx > *pada semua folder yang ada. > > > Mohon bantuannya. > Terima Kasih. > > > > > > > > >
