Halo Frnds,
Saya mencari solusi dimana
Redupkan FolderPath Sebagai String
Redupkan Nama File Sebagai Varian
Redupkan buku terbuka Sebagai Buku Kerja
Redupkan file_name Sebagai Varian
Dim bFileSaveAs Sebagai Boolean
Application.ScreenUpdating = Salah
Filename = Application.GetOpenFilename(Title:="Pilih Template Konfigurasi")
Jika Nama File <> Salah Kemudian
Setel openbook = Application.Workbooks.Open(Nama file)
Buku Kerja Ini.Aktifkan
openbook.Worksheets("User Master").Aktifkan
If Range("C6") <> "" Kemudian
ActiveSheet.Range("B6:T").Copy
Buku kerja.Tambahkan
Lembar Kerja("User Master").Tambah
Rentang("A1").Pilih
ActiveSheet.Tempel
Lain
Rentang("A1:XFD1048576").Pilih
Seleksi.Salin
Buku kerja.Tambahkan
Lembar Kerja("User Master").Tambah
Rentang("A1").Pilih
ActiveSheet.Tempel
End If
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Tampilkan
Jika Tidak bFileSaveAs Kemudian MsgBox "Pengguna dibatalkan", vbCritical
ActiveWorkbook.Tutup
Lembar Kerja("Komunitas").Aktifkan
Rentang("A1:G1").Pilih
Rentang(Pilihan, Pilihan.End(xlDown)).Salin
Buku kerja.Tambahkan
ActiveSheet.Tempel
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Tampilkan
Jika Tidak bFileSaveAs Kemudian MsgBox "Pengguna dibatalkan", vbCritical
ActiveWorkbook.Tutup
Lembar Kerja("penginstal web").Aktifkan
Rentang("A1:ZZ1").Pilih
Rentang(Pilihan, Pilihan.End(xlDown)).Salin
Buku kerja.Tambahkan
Lembar Kerja("Undang Pengguna").Tambah
Rentang("A1").Pilih
ActiveSheet.Tempel
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Tampilkan
Jika Tidak bFileSaveAs Kemudian MsgBox "Pengguna dibatalkan", vbCritical
ActiveWorkbook.Tutup
Lain
MsgBox "Pengguna Membatalkan Operasi"
End If
End Sub
Saya mencari solusi dimana
- Pemilihan file dapat dilakukan dari pengguna.[/*]Berdasarkan file yang dipilih, tindakan lebih lanjut dapat dilakukan pada file tersebut.[/*]Berdasarkan kebutuhan saya, saya telah mencoba menulis kode tetapi ketika file dibuka, makro tidak dijalankan di sana setelahnya. Silakan temukan di bawah kode.[/*]
Redupkan FolderPath Sebagai String
Redupkan Nama File Sebagai Varian
Redupkan buku terbuka Sebagai Buku Kerja
Redupkan file_name Sebagai Varian
Dim bFileSaveAs Sebagai Boolean
Application.ScreenUpdating = Salah
Filename = Application.GetOpenFilename(Title:="Pilih Template Konfigurasi")
Jika Nama File <> Salah Kemudian
Setel openbook = Application.Workbooks.Open(Nama file)
Buku Kerja Ini.Aktifkan
openbook.Worksheets("User Master").Aktifkan
If Range("C6") <> "" Kemudian
ActiveSheet.Range("B6:T").Copy
Buku kerja.Tambahkan
Lembar Kerja("User Master").Tambah
Rentang("A1").Pilih
ActiveSheet.Tempel
Lain
Rentang("A1:XFD1048576").Pilih
Seleksi.Salin
Buku kerja.Tambahkan
Lembar Kerja("User Master").Tambah
Rentang("A1").Pilih
ActiveSheet.Tempel
End If
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Tampilkan
Jika Tidak bFileSaveAs Kemudian MsgBox "Pengguna dibatalkan", vbCritical
ActiveWorkbook.Tutup
Lembar Kerja("Komunitas").Aktifkan
Rentang("A1:G1").Pilih
Rentang(Pilihan, Pilihan.End(xlDown)).Salin
Buku kerja.Tambahkan
ActiveSheet.Tempel
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Tampilkan
Jika Tidak bFileSaveAs Kemudian MsgBox "Pengguna dibatalkan", vbCritical
ActiveWorkbook.Tutup
Lembar Kerja("penginstal web").Aktifkan
Rentang("A1:ZZ1").Pilih
Rentang(Pilihan, Pilihan.End(xlDown)).Salin
Buku kerja.Tambahkan
Lembar Kerja("Undang Pengguna").Tambah
Rentang("A1").Pilih
ActiveSheet.Tempel
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Tampilkan
Jika Tidak bFileSaveAs Kemudian MsgBox "Pengguna dibatalkan", vbCritical
ActiveWorkbook.Tutup
Lain
MsgBox "Pengguna Membatalkan Operasi"
End If
End Sub