Hot Fox: Re: ]] XL-mania [[ Open File Harian

segunda-feira, 19 de abril de 2010

Re: ]] XL-mania [[ Open File Harian

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 <setiyowati.devi@gmail.com>

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

To: XL-mania@yahoogroups.com

Cc: jajang_ms@yahoo.co.id

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....

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

New Members 77

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Horeeee... tembus 14,000 members...                               |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Welcome to Mom Connection! Share stories, news and more with moms like you.

Hobbies & Activities Zone: Find others who share your passions! Explore new interests.