Tambahan dikit.
Kalau mau cek ada file atau gak :
if LenB(Dir$("D:\Data Harian\Report 30 Februari 2999.xls")) then
'ada filenya :
workbooks.open "D:\Data Harian\Report 30 Februari 2999.xls"
else
msgbox "file tidak ada"
end if
2010/4/18 siti Vi <[email protected]>
>
>
> Iya!!!!!!!!!!!!!!!!!!!!!
> Nama File itu termasuk data *type text/string*, sedangkan tanggal misalnya
>
> [Tgl Hari Ini] adalah data *type date* yg merupakan subtype dari bilangan.
> Jadi keduanya tidak dapat di bandingkan secara langsung, salah satu harus
> dikonversi dulu agar menjadi se-type dengan lawannya; baru dibandingkan
>
> Maka itu; proses mencari file yg akan dibuka; kira kira begini:
>
> File se-folder kita obok-obok, dipilih-"in" yg extensinya = ".XLS"
> Sementara itu TanggalHariIni (bhs VBA nya = Date) dikonversi agar menjadi
> text tampilan tgl "dd mmmm yyyy" & ".xls"; "ngonversi"nya dgn fungsi
> Format.
>
> Truss *setiap file XLS yg kepegang* dibandingkan dengan Date yg sudah di-
> TEXT-kan & di tambahi ".xls" tadi.
> Kalo cucok maka File yg kepegang dibuka, obok-obok folder dihentikan.
>
> Kalau semua file sefolder sudah diobok-obok tapi ndak ada ya cucok ya
> tinggal lapor sama si boss bahwa file yg namanya mirip tgl hari ini :
> "euweuh"!!
>
> Private Sub CommandButton1_Click()
> ' siti Vi / membuka workbook di folder tertentu yg
> ' namafilenya seperti format tgl hari ini "dd mmmm yyyy'"
> ' dlm bahasa sesuai language setting komputer anda
> Dim Flist As Variant
> Dim sht As Worksheet
> Dim fPath As String
> Dim i As Integer
> Dim AdaTodayFile As Boolean
>
> fPath = "D:\Data\Harian"
> Flist = *FileList*(fPath, "xls")
> For i = 1 To UBound(Flist)
> If Flist(i) = Format(Date, "dd mmmm yyyy") & ".xls" Then
> AdaTodayFile = True
> Workbooks.Open Filename:=fPath & "\" & Flist(i)
> Exit For
> End If
> Next i
> If Not AdaTodayFile Then
> MsgBox "Tidak ada file " & _
> Format(Date, "dd mmmm yyyy") & ".xls", 48, fPath
> End If
> End Sub
> hati-haati... ada UDF bernama FileList, harus dipikirin juga....
> & juga..
> misalnya *language setting* komputer anda = English (US); truss anda
> membuat
> nama file-nya ya jangan *7 Nopember 2010, 29** Desember 2010 *
> harusnya *07 November 2010* atau *29 December 2010*
>
>
> ------------------------------
>
> ----- Original Message -----
> *From:* jajang muhammad siddik <[email protected]>
> *To:* [email protected]
> *Cc:* [email protected]
> *Sent:* Saturday, April 17, 2010 5:11 PM
> *Subject:* ]] XL-mania [[ Open File Harian
>
> Dear Para Master Excel...
> Mohon bantuannya ni...............
> Dalam direktori D:\Data\Harian\ selalu ada file harian (nama file
> belakangnya ada tanggal sekarang, contoh : Report 17 April 2010.xls (tiap
> hari selalu berubah tanggalnya))
>
> Nah.....bagaimana caranya membuka file harian tersebut sesuai tanggal
> sekarang dengan satu command macro..jadi dengan satu tombol perintah kita
> langsung membuka File Report hari ini....pada tanggal 17 April, ketika
> jalankan perintahnya, maka yang akan tebuka adalah Report 17 April 2010.xls
> jika kita menjalankan perintah tanggal 19 maka file yang akan terbuka adalah
> Report 19 April 2010.xls....................
>
> *Mohon pecerahannya ya!!!!!!!!!!!!!!!!!!!!!*
>
> Salam,
> Jajang Muhammad Siddik....
>
>
>
