nariknya nggak manual, maleshhh ^_^
http://groups.yahoo.com/group/XL-mania/files/Questionnaire/
misalnya ada file banyak di folder \\data\, mau ditarik cell (3,1) nya
ditaro di satu file X.xls. X.xls ini dikasi :
Private Sub blah()
strPath == ThisWorkbook.Path & "\data\"
lngPathLenP2 == Len(strPath) + 1
With Application.FileSearch
.LookIn == strPath
.FileType == msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For i == 1 To .FoundFiles.Count
openedwkbook == .FoundFiles(i)
WBNameTarget == ActiveWorkbook.Name
Workbooks.Open (openedwkbook)
Filename == Mid(.FoundFiles(i), lngPathLenP2)
Workbooks(WBNameTarget).Worksheets(1).Cells(1, i).Value == i
Workbooks(WBNameTarget).Worksheets(1).Cells(2, i).Value == Filename
Workbooks(WBNameTarget).Worksheets(1).Cells(3, i).Value =Workbooks(Filename).Worksheets(1).Cells(3, 1).Value
Workbooks(Filename).Close SaveChanges:=úlse
Next i
Else
MsgBox "Ngga ada workbook di " & vbCrLf & "atau directory " & strPath &
" emang nggak ada."
End If
End With
End Sub
nggak ngerti kalo ada yang lebih efisien, maklum bukan programmer ^_^
On 3/20/06, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
>
> Dear Master,
>
> Ada yang punya synthax macro untuk memanggil beberapa file excel yang
> content/data nya sama untuk digabungkan kedalam 1 file master.
> Misalnya : DataA s/d C
> kemudian di file Master berisikan coding macro untuk memanggil file tsb
> dan
> digabungkan kedalam 1sheet,
>
> Plz yah kalau ada yang punya & terima kasih atas bantuannya.
>
> Rgds/Slamet
>
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| |
| 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 |
| [EMAIL PROTECTED] atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni Anda tentang XL-mania di : |
| http://www.friendster.com/profiles/xlmania |
+-------------------------------------------------------------------+
YAHOO! GROUPS LINKS
- Visit your group "XL-mania" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
