Nah kan jelas akhirnya.
Jadi ceritanya mau buka dialog window untuk open file tertentu.
Yang Anda gunakan adalah memanfaatkan winapi GetOpenFilename. Pembuat
script yang Anda gunakan, memanfaatkan prosedur fungsi winapi bernama
GetOpenFileName melalui sebuah prosedur fungsi buatannya sendiri yang
bernama GetFile.
Input parameter yang diminta adalah wadah hendle windows terhadap pemanggil
dialog window open file yang diberi nama HWnd.
Fungsi winapi GetOpenFIleName membutuhkan inputan berupa rangkaian data
yang disusun sebagai user defined type (UDT) bernama OpenFileName. Salah
satu itemnya adalah wadah nama file yang dipilih user yang bernama lpstrFile
Dialog window open file akan berada dibawah kendali si window yang ditunjuk
atau yang memiliki id windows senilai dengan nilai dalam HWnd.
Begitulah ceritanya.
Winapi GetOpenFileName memang bisa membuat bingung pengguna VBA yang sedang
berkembang. Bagaimana jika menggunakan yang lebih mudah dikenali karena
menggunakan prinsip object.
Object yang digunakan namanya adalah FileDialog yang menjadi member dari
object application.
Contoh penggunaannya adalah sebuah prosedur sub bernama AmbilFile berikut
ini : (hanya prinsip dasar pemakaian saja yah)
Public Sub AmbilFile()
dim fd as filedialog 'variabel object file dialog window
dim lfd as long 'variabel penampung hasil kerja dialog window (0
kalau user gak pilih file, -1 atau 1 alias true jika user pilih file)
dim sFilePilihanUser as string 'variabel penyimpan nama file yang
dipilih user
set fd=application.filedialog( msofiledialogfilepicker )
with fd
.title = "Silakan pilih sebuah file" 'pasang caption dialog
window
.filters.clear 'hapus filter file yang boleh dipilih
.filters.add "Ms Ofice97/XP/2003" , "*.doc;*.xls" 'tambahkan
filter file baru sesuai kebutuhan
.allowmultiselect=false 'supaya tidak boleh multiple file
selection alias cuma boleh pilih 1 file sajah
lfd= .show 'tampilkan file dialog dan tunggu respon user
if lfd<>0 then 'user memilih sebuah file
sfilepilihanuser= .selecteditems(1) 'ambil file pertama
pilihan user yang disimpan oleh si file dialog
else 'user gak milih apa-apa
sfilepilihanuser = "loh... kok gak pilih apa-apa"
endif
end fd
msgbox sfilepilihanuser,vbinformation,"Inilah pilihan anda"
end sub
letakkan di sebuah general module. Kembangkan sesuai kebutuhan, termasuk
membuat sebuah prosedur berparameter agar bisa dinamis dipakai oleh
berbagai proses yang membutuhkan pemilihan file.
Wassalam,
Kid.
2014-06-19 8:39 GMT+07:00 'irianto' [email protected]
[belajar-excel] <[email protected]>:
>
>
> Berikut saya kirim kan source di general modulnya
>
>
>
> Mohon penjelasannya,trim’s
>
>
>
> Option Explicit
>
> Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
>
> "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
>
> Private Type OPENFILENAME
>
> lStructSize As Long
>
> hwndOwner As Long
>
> hInstance As Long
>
> lpstrFilter As String
>
> lpstrCustomFilter As String
>
> nMaxCustFilter As Long
>
> nFilterIndex As Long
>
> lpstrFile As String
>
> nMaxFile As Long
>
> lpstrFileTitle As String
>
> nMaxFileTitle As Long
>
> lpstrInitialDir As String
>
> lpstrTitle As String
>
> flags As Long
>
> nFileOffset As Integer
>
> nFileExtension As Integer
>
> lpstrDefExt As String
>
> lCustData As Long
>
> lpfnHook As Long
>
> lpTemplateName As String
>
> End Type
>
>
>
>
> Function GetFile(Hwnd As Long) As String
>
> Dim OFName As OPENFILENAME
>
> OFName.lStructSize = Len(OFName)
>
> OFName.hwndOwner = Hwnd
>
> OFName.hInstance = App.hInstance
>
> OFName.lpstrFilter = "Ms Ofice97/XP/2003(*.doc;*.xls)" _
>
> + Chr$(0) + "*.doc;*.xls" + Chr$(0) _
>
> + "Kabeh File (*.*)" + Chr$(0) + "*.*" + Chr$(0)
>
> OFName.lpstrFile = Space$(254)
>
> OFName.nMaxFile = 255
>
> OFName.lpstrFileTitle = Space$(254)
>
> OFName.nMaxFileTitle = 255
>
> OFName.lpstrInitialDir = "C:\"
>
> OFName.lpstrTitle = "Open File - vbBego Team 2000?"
>
> OFName.flags = 0
>
> If GetOpenFileName(OFName) Then
>
> GetFile = Left(OFName.lpstrFile, _
>
> InStr(1, OFName.lpstrFile, Chr(0)) - 1)
>
> Else
>
> GetFile = ""
>
> End If
>
> End Function
>
>
>
> *From:* [email protected] [mailto:
> [email protected]]
> *Sent:* Wednesday, June 18, 2014 7:09 PM
> *To:* [email protected]
> *Subject:* RE: [belajar-excel] getfile
>
>
>
>
>
> Sepertinya butuh bunyi script (min deklarasi nya) prosedur bernama
> getfile. Klo ndak ada di module object sheet tersebut, mungkin di sebuah
> general module yg ada di file tersebut.
>
> On Jun 18, 2014 5:58 PM, "'irianto' [email protected]
> [belajar-excel]" <[email protected]> wrote:
>
>
>
> Betul mr kid kayaknya seperti itu ,source ini adalah bagian dari source
> u/buka pass macro,logika nya macro yang di password akan di backup ke
> workbook lain kemudian nantinya akan dirubah dngan pass baru,tapi kenapaya
> ketika saya run muncul the bug”variable not define”
>
> Berikut potongan source nya
>
> Private Sub CommandButton1_Click()
>
>
>
> Dim hFile As String
>
> Dim inFile As Long, nLoop As Long
>
> Dim Header As String
>
> Dim State As Boolean
>
> '// Header Key VBA Password
>
> Header = Chr(&HD) & Chr(&HA) & Chr(&H44) & Chr(&H50) & _
>
> Chr(&H42) & Chr(&H3D) & Chr(&H22)
>
> '// Buka File Excel & Word
>
> hFile = GetFile(Hwnd)……………bla bla bla
>
>
>
>
>
>
>
> *From:* [email protected] [mailto:
> [email protected]]
> *Sent:* Wednesday, June 18, 2014 10:19 AM
> *To:* [email protected]
> *Subject:* Re: [belajar-excel] getfile
>
>
>
>
>
> Hwnd pada kalimat tersebut adalah sebuah variabel. Typenya variant.
> Detilnya tergantung isi prosedur.
>
> Biasanya, variabel hwnd digunakan untuk menyimpan nomor handle windows yg
> bertipe long. Tapi pada kasus ini, ndak bisa dipastikan bahwa hwnd sebagai
> handle windows jika tidak melihat isi prosedur getfile.
>
> On Jun 18, 2014 7:40 AM, "'irianto' [email protected]
> [belajar-excel]" <[email protected]> wrote:
>
>
>
> Dear all master
>
> Arti dari “Hwnd” dari source berikut: hFile = GetFile(Hwnd),itu bahasa
> manusia nya apa ya?apakah alamat file yang akan kita ambil berada?
>
> Trim’s atas pencerahannya
>
>
>
