[µo°Ý] excel¥Îvba¨Ì§Ç¶}±ÒÀÉ®×

xoofer

¤£¦n·N«ä·Q½Ð°Ý¦p¦ó¦bexcel¥Îvba¨Ì§Ç¶}±ÒÀÉ®×

­ì·Qªk¬O¥Î°j°éªº¤è¦¡¥h¨Ì§Ç¶}±ÒÀx¦s®æ¤¤ªº¸ô®|
¸ô®|¼g¦b¤u§@ªí¤¤sheet1ªºA1 ©MA2 ( C:\vbatest1.xls ©M C:\vbatest2.xls )
vba¦p¤U, ¦ýµLªk¶¶§Qrun, ¤£ª¾¥i§_À°¦£¸Ñµª / ­×§ï¿ù»~ªº¦a¤è
·P¿E!!!

Dim filename As String
Dim i As Integer

For i = 1 To 2

i = i + 0

Worksheets("Sheet1").Cells(i, 1) = filename

Workbooks.Open "filename"

Next

xoofer

¦^´_ 2# owen06


    ¥¦¥X²{  subscript out of range

   click "debug" ¥X²{¤U­z»yªk³Q highlight...

  filename = Workbooks("book8.xls").Sheets("Sheet1").Cells(i, 1).Value

   ÁÂÁÂ

xoofer

¦^´_ 3# xoofer

§Ú¥t¥~§ï¤F¤U­±ªº¤è¦¡
µ²ªG¬Ovbatest1 Àɮ׶}¤F ,¦ý°j°é¶]²Ä¤G¦¸vbatest2 ®É¥¢±Ñ

¥i§_³Â·Ð«ü¾É¤@¤U¸Ó¦p¦ó­×¥¿

ÁÂÁÂ

Sub fpath()

Dim total As Integer
Dim fpath As String

Do While i < 3
i = i + 1

fpath = Cells(i, 1)
MsgBox (fpath)

Workbooks.Open (fpath)

Loop

End Sub

xoofer

¦^´_ 6# owen06

·PÁ«ü¾É

»yªk¥i¦æ¤F