Hai ASL,
Setelah blok if terakhir, coba tambahkan :
dim wbkThis as workbook, wbkLain as workbook
dim shtProj as worksheet
set wbkthis=thisworkbook
set wbklain=workbooks.open(fileterpilih)
on error resume next
set shtproj=wbklain.sheets("proyekA")
if err.number<>0 then
err.clear
wbklain.sheets(1).activate
else
shtproj.activate
endif
Jika sekedar akan copy data dari sheet proyekA di workbook lain ke workbook
kerja di sheet tertentu, ndak perlu diaktifkan sheetnya. Scriptnya bagian
mulai on error menjadi :
on error resume next
set shtproj=wbklain.sheets("proyekA")
if err.number<>0 then
err.clear
on error goto 0
else
shtproj.usedrange.copy
wbkthis.sheets("tertentu").range("a1").pastespecial
xlpastevaluesandnumberformats
endif
wbklain.close false
Wassalam,
Kid.
2013/12/16 Ahmad Syaifullah Lubis <[email protected]>
>
>
> Dear BeExcellers,
> mohon bantuannya atas macro di bawah ini.
>
> 'Sub copypaste()
> 'Munculkan dialog box untuk milih file XLSX.
> 'Nama file yang terpilih disimpan di variable: FileTerpilih.
> FileTerpilih = Application.GetOpenFilename _
> ("XLS* File (*.xls*),*.xls*", Title:="Open file",
> MultiSelect:=True)
>
> 'Jika cancel, atau tidak jadi milih, maka keluar dari Sub prosedur.
> If VarType(FileTerpilih) = vbBoolean Then
> Exit Sub
> End If
>
> 1. gimana ya saya ingin memanggil file terpilihnya dari D:\data
> keuangan\*.* (setelah timbul nama2 file, kemudian akan saya klik).
>
> 2. gimana caranya proses pemanggilan sheet yang bernama proyekA di file
> d:\data keuangan\data_okt.xlsx
>
> Salam,
> ASL
> ------------------------------
>
>
>
