§ìÀɮ׸ê®Æ®É¡A°¸¦Ó·|¥X²{ Erro 1004

skyrubys

§Ú¦b§ìÀɮ׸ê®Æ®É¡A°¸¦Ó·|¥X²{ Erro 1004¡A·í¿ù»~®É¤wª¾¹D¬O¬Y¤@¬q¥X²{°ÝÃD¡C
·Q½Ð°Ý¤j¤j¡A¶À¦â³o¬q»Ý«ç»ò­×§ï?
¦¹¬q§Úªº§@ªk¬O¥h´M§äAÄdÃöÁä¦r¦³§ä¨ìManager©ÎDisk®É¡A±NGÄdªº­È¦^¶Ç¨ìªí¤ºªí®æ

Sub ¶ê¨¤¯x§Î1_Click()  
        i = 0
          x = 0
          b = "20%"
          a = "='C:\Users\Show\Desktop\PLV auto report\"
           For j = 1 To 300
               Cells(1, 1) = a & "[" & b & ".xls]sheet1'!$A$" & j
                If InStr(Cells(1, 1), "MANAGER") Then
                   Cells(1, 2 + i) = a & "[" & b & ".xls]sheet1'!$B$" & j
                   i = i + 1
                   End If

                If InStr(Cells(1, 1), "DISK") Then
                   Cells(2 + x, 1 + i) = a & "[" & b & ".xls]sheet1'!$G$" & j
                   x = x + 1
                  End If
               
               If InStr(Cells(1, 1), "MANAGER") Then
                x = 0
               
                ElseIf InStr(Cells(1, 1), "'End Test") Then
                Exit For
               
               End If
            Next j

           
         For y = 0 To 3
         For x = 0 To 3
          If InStr(Cells(1, 2 + y), (x + 1)) Then
          Cells(9, 2 + x) = Cells(1, 2 + y)
          For i = 0 To 5
          Cells(10 + i, 2 + x) = Cells(2 + i, 2 + y)
          Next i
          End If
         Next x
         Next y
               
End Sub

luhpro

¦^´_ 1# skyrubys
Cells(1, 1) = a & "[" & b & ".xls]sheet1'!$A$" & j

§ï¦¨

Cells(1, 1) = a & "[" & b & ".xls]20%'!$A$" & j

©Î

Cells(1, 1) = a & "[" & b & ".xls]sheets(1)'!$A$" & j

¸Õ¸Õ

skyrubys

·PÁÂÀ°¦£!!ÁÂÁÂ~