Board logo

標題: 抓檔案資料時,偶而會出現 Erro 1004 [打印本頁]

作者: skyrubys    時間: 2016-4-15 15:34     標題: 抓檔案資料時,偶而會出現 Erro 1004

我在抓檔案資料時,偶而會出現 Erro 1004,當錯誤時已知道是某一段出現問題。
想請問大大,黃色這段需怎麼修改?
此段我的作法是去尋找A攔關鍵字有找到Manager或Disk時,將G攔的值回傳到表內表格

Sub 圓角矩形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    時間: 2016-4-16 02:06

回復 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    時間: 2016-4-16 19:43

感謝幫忙!!謝謝~




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)