copy sheet file workbook

  1. 8 minggu lalu

    Dear master/suhu......
    Mohon dapat dibantu mencari kesalahan script terlampir.

    Tujuannya saya mau mengambil/copy semua sheet pada suatu file pada directory tertentu.
    dan dimasukan ke file workbook yang sedang aktif.

    terima kasih sebelumnya....master

  2. manweljs_

    Sep 17 Terverifikasi + 5.713 Poin

    @nafis2006

    sebaiknya lampirkan juga file yang sheetnya ingin dicopy. Karena bisa saja ada kriteria2 tertentu yang harus dipenuhi dan yang harus diabaikan. sekalian ditandai sheet mana yang tidak ingin dicopy (jika ada)

    silahkan

  3. Dear mas@manweljs_ ...
    contoh file yang akan di copy sheet nya terlampir....
    yang akan di copy semua sheet...

    terima kasih

  4. manweljs_

    Sep 17 Terverifikasi + 5.713 Poin

    @nafis2006

    sheetnya mau di copy atau di gabung? tolong diperjelas

  5. dear mas @manweljs_ ....
    Sheet nya mau di copy saja mas....

    terima kasih atas bantuannya

  6. manweljs_

    Sep 17 Terverifikasi + 5.713 Poin
    Di sunting 8 minggu lalu oleh manweljs_

    kalo gitu manfaatkan aja fitur move or copy :)

    copysheet.gif

  7. dear mas@manweljs_ ....
    ngk bisa pakai VBA yah mas.....

    terima kasih.... atas info nya mas....

  8. manweljs_

    Sep 17 Terverifikasi + 5.713 Poin

    @nafis2006 ngk bisa pakai VBA yah mas.....

    bisa aja, edit skripnya menjadi :

    Private Sub CommandButton1_Click()
    
    Dim directory As String
    Dim FileName As Variant
    Dim sheet As Worksheet
    Dim total As Integer
    Dim Finfo As String
    Dim FilterIndex As Long
    Dim Title As String
    Dim xWb As Workbook, yWb As Workbook
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Set xWb = ThisWorkbook
    
    'Set up list of file filters
      Finfo = "Excel Files (*.xlsx),*.xlsx," & _
              "Excel Files (*.xls),*.xls," & _
              "All Files (*.*),*.*"
    'Display *.* by default
      FilterIndex = 0
    'Set the dialog box caption
      Title = "Select a File to Open"
    'Get the filename
      FileName = Application.GetOpenFilename(Finfo, _
        FilterIndex, Title)
    'Handle return info from dialog box
      If FileName = False Then
        MsgBox "No file was selected."
        Exit Sub
      End If
    
    Set yWb = Workbooks.Open(FileName)
            
        For Each sheet In yWb.Worksheets
            total = xWb.Worksheets.Count
            yWb.Worksheets(sheet.Name).Copy _
            after:=xWb.Worksheets(total)
        Next sheet
            
        yWb.Close
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    End Sub


    sorry tadi mendadak ada kerjaan (^_^)/

  9. mas @manweljs_ .....
    terima kasih banyak atas bantuannya....
    script nya berfungsi dengan baik.......

    met sukses selalu

 

atau Mendaftar untuk ikut berdiskusi!