' Microsoft Office 12.0/13.0/14.0 Object Library.
Dim fDialog As Office.FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False
.Title = "Pilih satu atau lebih "
.Filters.Clear
.Filters.Add "File Excel", "*.XLS; *.XLSX"
.Filters.Add "All Files", "*.*"
If .Show = True Then
For Each varFile In .SelectedItems
' jika ada yang di pilih , ngapain ya ???
' ya terserah anda deh ....
Next
Else
MsgBox "Tak jadi tuh ...."
End If
End With
apakah nama langkah import yang disimpan bisa di browse ???
'===========
--- In belajar-access@yahoogroups.com, Yana Karyana <way_key111182@...> wrote:
>
> Assalamu'alaikum........
>
>
> Rekan-rekan dan guruku semua .... Mohon bantuan untuk masalah berikut.
> Saya akan mengimport file Excel ke database access. Import yang dilakukan tidak
> hanya satu kali tapi beberapa kali (tiap hari/berkala).
>
> Setelah berusaha mencari dan belajar, Cara yang sudah saya lakukan adalah :
> 1. Dari menu ExternalData, Group Import saya filih Excel
> 2. Saya ikuti langkah-langkah import
> 3. kemudian langkah2 itu saya simpan.
> 4. Saya Buat Form dengan satu comman Button
> 5. Pada comman Button saya masukan perintah : DoCmd.RunSavedImportExport
> "DataBKU_UPTPembantu"
>
> Alhamdulilah cara di atas berhasil. Tetapi kekurangannya : saya hanya bisa
> import file excel dengan nama yang sama pada lokasi yang telah ditentukan saja.
>
> jadi : Bagaimana carannya saat tekan tombol Import, Browse File Muncul, lalu
> saya cari lokasi file, dan bisa milih nama file yang berbeda-beda (struktur
> tabel file excelnya sama). Langkah import nya lebih sederhana dari menggunakan
> wizard import. Berikut saya lampirkan contoh filenya. (catatan : simpan folder
> tersebut langsung di drive C:)
>
> demikian dan atas bantuannya sebelumnya terima kasih.
>
> salam access selalu,
> Yana K
>
------------------------------------
SPAM IS PROHIBITEDYahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)
<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com
<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
No comments:
Post a Comment