Hot Fox: Re: ]] XL-mania [[ Insert file Pasfoto Ribuan

quinta-feira, 15 de outubro de 2009

Re: ]] XL-mania [[ Insert file Pasfoto Ribuan

kalau mau lebih cepat dari yang pendek
If LenB(Dir(FileNm)) <> 0 Then Me.Pictures.Insert FileNm

VB beda dengan formula excel. <> faster then >
Penggunaan Len() untuk cek suatu nilai string ada atau tidak faster daripada langsung lihat isinya.
Karena hanya akan cek ada atau tidak,membaca besar byte memori lebih cepat daripada baca panjang sesungguhnya nilai string, maka digunakanlah LenB().

Kalau hanya dikit gak kerasa, kalau cek seluruh drive, baru kerasa.Misal seperti search-nya windows explorer

Kid.

2009/10/15 siti Vi <setiyowati.devi@gmail.com>

Maaf masih yg ini-ini lagi...

Jalan yg agak pendek, tidak perlu menggunakan FSO
cukup dengan fungsi Dir(NamaFile) untuk mengIdentifikasi keberadaan file;
Variable NamaFile dibentuk dari tiap data di kolom ID_NIK dengan ditambah
"F" di depannya dan ".JPG" di belakangnya;
Jika file yg disebut = ada; langsung di-Insert ke sheet

Prosedur sub berikut ini ditulis di module sheet dimana file foto akan di-insert-kan

Private Sub Cmd_InsertPictures_Click()
'-- sitiVi/12okt09/menginsert pictures ke sheet
Dim FileNm As String, FfPath As String, r As Long
FfPath = ThisWorkbook.Path & "\": r = 5
Do While Len(Cells(r, 2)) > 0
FileNm = FfPath + "F" + Cells(r, 2) + ".jpg"
Cells(r, 15).Select
If Dir(FileNm) <> "" Then Me.Pictures.Insert FileNm
r = r + 1
Loop
End Sub
'-----------

2009/10/9 yayat ruhimat <yayat61@yahoo.com>

> Selama ini, insert file pasfoto ke file excel dilakukan secara manual.

> Jika nama file (16 digit, huruf kedua dari kiri ke kanan) sama dengan IDNIK (16 digit)
> pada file Excel, maka file pasfoto penduduk tersebut diinsert pada kolom PASFOTO
> data penduduk yang bersangkutan.
> Tolong yaaa teman2, pls... apalagi waktu cross check data penduduk semakin mendesak.

>

__._,_.___

Messages in this topic (6) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Moderasi akan lambat minggu ini, momods pergi ke tempat jauh      |
| 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

Mom Power: Discover the community of moms doing more for their families, for the world and for each other