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

 

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 (5) 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              |
+-------------------------------------------------------------------+

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

Recent Activity

•  68
  New Members

Visit Your Group

Give Back

Yahoo! for Good

Get inspired

by a good cause.

Y! Toolbar

Get it Free!

easy 1-click access

to your groups.

Yahoo! Groups

Start a group

in 3 easy steps.

Connect with others.

.

__,_._,___