另一个工作薄中工作表的路径如何用VBA写啊，老提示下标越界！

yanping11611

我想把以下代码中的这一句
If .Range("C1") = 1 Then
Sheets("SHEET13").Select
改成
If .Range("C1") = 1 Then
Sheets("[生产记录.xls]SHEET13").Select
运行就提示“下标越界 9”
我就想改成“选择另外一个叫生产记录.xls的工作薄中的sheet13工作表”。
注明：生产记录.xls的位置和需要修改的文件在同一目录
我完全不懂VBA，麻烦各位大神帮我修改一下！尽管不懂，但能大体猜出里面的道理并以此自己摸索！万分感谢，坐等。

1. Sub 提取()
   
2. Dim rngA As Range
   
3. Dim intNum, intRow, intValue As Integer
   
4.     With Sheets("sheet2")
   
5.     If Sheets("sheet2").Range("c8") = Empty Then
   
6.     MsgBox "请输入合同号"
   
7.     Else
   
8.     Range("c4,c6,g4,g6,g8,m4,m6,m8,p4,p6") = Empty
   
9.     KKLL
   
10.     intValue = 10
    
11.     Set rngA = Range("a:a").Find(.Range("c8"), lookat:=xlWhole)
    
12.     If Not rngA Is Nothing Then
    
13.             Cells.AutoFilter Field:=4, Criteria1:=Sheets("sheet2").Range("c8")
    
14.             .Range("c6") = Cells(rngA.Row, 3)
    
15.             .Range("g6") = Cells(rngA.Row, 5)
    
16.             .Range("g4") = Cells(rngA.Row, 4)
    
17.             .Range("g8") = Cells(rngA.Row, 7)
    
18.             .Range("m4") = Cells(rngA.Row, 9)
    
19.             .Range("j8") = Cells(rngA.Row, 8)
    
20.             .Range("g13") = Cells(rngA.Row, 12)
    
21.             .Range("m6") = Cells(rngA.Row, 6)
    
22.             
    
23.             For intRow = rngA.Row To [d65536].End(xlUp).Row
    
24.     For intNum = 4 To 11
    
25.              .Cells(intValue, intNum) = Cells(intRow, intNum + 1)
    
26.         Next
    
27.              intValue = intValue + 1
    
28.         Next
    
29.             Cells.AutoFilter
    
30.             Sheets("sheet2").Select
    
31.             MsgBox "记录导出成功"
    
32.         Else
    
33.             Sheets("sheet2").Select
    
34.             MsgBox "找不到此单"
    
35.         End If
    
36.         End If
    
37.         End With
    
38. End Sub
    
39. Sub KKLL()
    
40. With Sheets("SHEET2")
    
41. If .Range("C1") = 1 Then
    
42. Sheets("SHEET13").Select
    
43. Else
    
44. If .Range("C1") = 2 Then
    
45. Sheets("SHEET4").Select
    
46. Else
    
47. If .Range("C1") = 3 Then
    
48. Sheets("SHEET5").Select
    
49. Else
    
50. If .Range("C1") = 4 Then
    
51. Sheets("SHEET6").Select
    
52. Else
    
53. If .Range("C1") = 5 Then
    
54. Sheets("SHEET7").Select
    
55. Else
    
56. If .Range("C1") = 6 Then
    
57. Sheets("SHEET8").Select
    
58. Else
    
59. If .Range("C1") = 7 Then
    
60. Sheets("SHEET9").Select
    
61. Else
    
62. If .Range("C1") = 8 Then
    
63. Sheets("SHEET10").Select
    
64. Else
    
65. If .Range("C1") = 9 Then
    
66. Sheets("SHEET14").Select
    
67. Else
    
68. If .Range("C1") = 10 Then
    
69. Sheets("SHEET15").Select
    
70. Else
    
71. If .Range("C1") = 11 Then
    
72. Sheets("SHEET16").Select
    
73. Else
    
74. If .Range("C1") = 12 Then
    
75. Sheets("SHEET17").Select
    
76. Else
    
77. End If
    
78. End If
    
79. End If
    
80. End If
    
81. End If
    
82. End If
    
83. End If
    
84. End If
    
85. End If
    
86. End If
    
87. End If
    
88. End If
    
89. End With
    
90. End Sub

复制代码

yanping11611

能帮我看看不，卡在这里好几天了！

yanping11611

朱荣兴 发表于 2016-4-21 09:28
1、必须打开该工作薄，才可能选定该工作薄中的某一个工作表
2.打开该工作薄代码必须写入完整路径才行，
3 ...

@朱荣兴   大神不好意思啊   白天在上班，我刚刚把附件更新了，有空的话帮我看看行吗？ 其实我想实现的功能说简单点就是一个工作薄想用到另外一个工作薄里面的内容。目前这两个是放在同一个目录下，如果你帮我解决了这一步，下一步我就可以自己摸索着把一个文件放在局域网的服务器上，另外一个放在本地电脑上，让本地电脑的文件调用服务器上那个文件的数据。（文件在服务器的位置 \\server\计划\生产调度\A.xls)

yanping11611

愿每个菜鸟的背后都站着一个大神！

yanping11611

朱荣兴 发表于 2016-4-22 09:30

@朱荣兴    非常感谢你！根据你写的代码，调整后完全可以。我又加了些自动关闭、防止闪烁的代码后，感觉非常完美，后面的工作得以继续。呵呵，感觉自己就像个机械修理工，拆各种零件在拼凑一部能跑的车！再次感谢。

kuku818a

楼主！能否发一份原整的，简化后的文件给我，我也碰到你的情况！更惨是我不懂VBA！！！T_Y

yanping11611

kuku818a 发表于 2016-6-19 22:16
楼主！能否发一份原整的，简化后的文件给我，我也碰到你的情况！更惨是我不懂VBA！！！T_Y

把你文件给我吧，我现在懂了一点点，也许能帮到你

kuku818a

yanping11611 发表于 2016-6-20 18:33
把你文件给我吧，我现在懂了一点点，也许能帮到你

我想出入货单的数据加入到出入记录表中，然后统计库存！