Cara Membuat Copy Sheet dengan DialogFilePicker dari Workbook Lain |Aplikasi Slip Gaji Part 3
877 بار بازدید -
2 سال پیش
-
Cara Membuat Copy Sheet dengan
Cara Membuat Copy Sheet dengan DialogFilePicker dari Workbook Lain merupakan metode untuk import data worksheet ke dalam workbook Aplikasi Slip Gaji / Payroll ada beberapa metode yang dipelajari
1. Cara membuka File Vba Excel (msoFIleDialogFilePicker)
2. Cara copy Sheet Excel dengan VBA
3. Cara menutup Workbooks berdasarkan Nama FIle
CODING :
Private Sub Lb_AmbilData_Click()
Dim PathFile As String
Dim WB As Workbook
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.ButtonName = "Buka File"
.Title = "Pilih File"
.Filters.Clear
.Filters.Add "Excel File", "*.xlsx;*.xlsm;*.xlsb"
If .Show = -1 Then
PathFile = .SelectedItems(1)
Else
Exit Sub
End If
End With
Set WB = Workbooks.Open(Filename:=PathFile)
If WB.Name = "DAFTAR GAJI.xlsx" Then
Application.DisplayAlerts = False
Worksheets("DAFTAR GAJI").Copy AFTER:=ThisWorkbook.Worksheets("Sheet1")
WB.Close SaveChanges:=True
Else
MsgBox "Filah yang di pilih salah", vbCritical, "Ambil Data"
WB.Close SaveChanges:=True
End If
End Sub
#vbatutorial #exceltutorial #macroexcel #slipgaji
Bagi yang belum download file bahan Totorial, silahkan download File
=====================================
File Download : https://drive.google.com/file/d/1xuxy...
=====================================
Tutorial Aplikasi Slip Gaji :
Part 1 : Aplikasi Cetak Slip Gaji Demo Aplikasi Slip Gaji Karyawan Kirim Wha...
Part 2 : Cara Menampilkan Open Dialog Box VBa Excel Cara Menampilkan Open Dialog Box VBa ...
Part 3 : Cara Membuat Copy Sheet dengan DialogFilePicker Cara Membuat Copy Sheet dengan Dialog...
Part 4 : Tombol Refresh, tampilkan slipGaji di ListBox : Tampilkan Data Range di ListBox, RowS...
Part 5 : Cara Membuat PathFolder Simpan File ExportPDF : Cara Membuat File Path, Lokasi Simpa...
1. Cara membuka File Vba Excel (msoFIleDialogFilePicker)
2. Cara copy Sheet Excel dengan VBA
3. Cara menutup Workbooks berdasarkan Nama FIle
CODING :
Private Sub Lb_AmbilData_Click()
Dim PathFile As String
Dim WB As Workbook
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.ButtonName = "Buka File"
.Title = "Pilih File"
.Filters.Clear
.Filters.Add "Excel File", "*.xlsx;*.xlsm;*.xlsb"
If .Show = -1 Then
PathFile = .SelectedItems(1)
Else
Exit Sub
End If
End With
Set WB = Workbooks.Open(Filename:=PathFile)
If WB.Name = "DAFTAR GAJI.xlsx" Then
Application.DisplayAlerts = False
Worksheets("DAFTAR GAJI").Copy AFTER:=ThisWorkbook.Worksheets("Sheet1")
WB.Close SaveChanges:=True
Else
MsgBox "Filah yang di pilih salah", vbCritical, "Ambil Data"
WB.Close SaveChanges:=True
End If
End Sub
#vbatutorial #exceltutorial #macroexcel #slipgaji
Bagi yang belum download file bahan Totorial, silahkan download File
=====================================
File Download : https://drive.google.com/file/d/1xuxy...
=====================================
Tutorial Aplikasi Slip Gaji :
Part 1 : Aplikasi Cetak Slip Gaji Demo Aplikasi Slip Gaji Karyawan Kirim Wha...
Part 2 : Cara Menampilkan Open Dialog Box VBa Excel Cara Menampilkan Open Dialog Box VBa ...
Part 3 : Cara Membuat Copy Sheet dengan DialogFilePicker Cara Membuat Copy Sheet dengan Dialog...
Part 4 : Tombol Refresh, tampilkan slipGaji di ListBox : Tampilkan Data Range di ListBox, RowS...
Part 5 : Cara Membuat PathFolder Simpan File ExportPDF : Cara Membuat File Path, Lokasi Simpa...
2 سال پیش
در تاریخ 1401/05/04 منتشر شده
است.
877
بـار بازدید شده