VBA宏程序 地址改写

hyjianjian

原本是要连接 192.168.2.111\TRCFTPICS\.......调取表格后才能运行，我希望能换成 本地 E:\Sub\Monthly\执行

貌似单纯改变Const Defalt_Path = "\\192.168.2.111\TRCFTPICS\Sub\Monthly\"
                     Const Defalt_Path1 = "\\192.168.2.111\TRCFTPICS\Sub\Monthly\Report\"
并不能成功，难道还有其他要点？求大师查看！感谢........(提示，打开文件 宏会自动执行的)

hyjianjian

补充附件。。。。。。。。。。。

hyjianjian

提取出来的代码 。  

hyjianjian

1. '------------------------- ME192.168.2.111I SET
   
2.         Workbooks(sFileName).Worksheets(sNewSheets).Cells(j, BASE1_NO) = j - BASE1_DATA_ROW + 1
   
3.         Workbooks(sFileName).Worksheets(sNewSheets).Cells(j, BASE1_ITEMCODE) = Workbooks(MeFile_Name).Worksheets(XSEIK_SHEET).Cells(i, XSEIKFile_ITEMCODE)
   
4.         '
   
5.         Call Select_XITEM_Proc(Workbooks(MeFile_Name).Worksheets(XSEIK_SHEET).Cells(i, XSEIKFile_ITEMCODE), sITEMNAME, sLOTS, sTANNI, sFUGOU, sKEISU, J0, J1, J2)
   
6.         Workbooks(sFileName).Worksheets(sNewSheets).Cells(j, BASE1_ITEMNAME) = sITEMNAME
   
7.         'Workbooks(sFileName).Worksheets(sNewSheets).Cells(j, BASE1_LOT) = sLOTS
   
8.         
   
9.         If sFUGOU = 0 Then
   
10.             Workbooks(sFileName).Worksheets(sNewSheets).Cells(j, BASE1_LOT) = sLOTS
    
11.         ElseIf sFUGOU = 1 Then
    
12.             Workbooks(sFileName).Worksheets(sNewSheets).Cells(j, BASE1_LOT) = sLOTS * (sKEISU ^ 2)
    
13.         Else
    
14.             Workbooks(sFileName).Worksheets(sNewSheets).Cells(j, BASE1_LOT) = sLOTS / (sKEISU ^ 2)
    
15.         End If
    
16.         
    
17.         
    
18.         '
    
19.         '
    
20.         vSum = Select_XSEIK_Order_Count_Proc(i, dKakutei)
    
21.         Workbooks(sFileName).Worksheets(sNewSheets).Cells(j, BASE1_MONTHS) = vSum
    
22.         Workbooks(sFileName).Worksheets(sNewSheets).Cells(BASE1_DATA_SUMROW, BASE1_MONTHS) = Workbooks(sFileName).Worksheets(sNewSheets).Cells(BASE1_DATA_SUMROW, BASE1_MONTHS) + vSum
    
23.         
    
24.         If Select_XSEIK_Order_Count_Proc(i, DateAdd("M", 1, dKakutei)) + J1 - J0 <= 0 Then
    
25.            vSum = 0
    
26.         Else
    
27.         vSum = Select_XSEIK_Order_Count_Proc(i, DateAdd("M", 1, dKakutei)) + J1 - J0
    
28.         End If
    
29.         
    
30.         Workbooks(sFileName).Worksheets(sNewSheets).Cells(j, BASE1_MONTHS + 1) = vSum
    
31.         Workbooks(sFileName).Worksheets(sNewSheets).Cells(BASE1_DATA_SUMROW, BASE1_MONTHS + 1) = Workbooks(sFileName).Worksheets(sNewSheets).Cells(BASE1_DATA_SUMROW, BASE1_MONTHS + 1) + vSum
    
32.         
    
33.         If Select_XSEIK_Order_Count_Proc(i, DateAdd("M", 2, dKakutei)) + J2 - J1 <= 0 Then
    
34.            vSum = 0
    
35.         Else
    
36.         vSum = Select_XSEIK_Order_Count_Proc(i, DateAdd("M", 2, dKakutei)) + J2 - J1
    
37.         End If
    
38.         
    
39.         Workbooks(sFileName).Worksheets(sNewSheets).Cells(j, BASE1_MONTHS + 2) = vSum
    
40.         Workbooks(sFileName).Worksheets(sNewSheets).Cells(BASE1_DATA_SUMROW, BASE1_MONTHS + 2) = Workbooks(sFileName).Worksheets(sNewSheets).Cells(BASE1_DATA_SUMROW, BASE1_MONTHS + 2) + vSum
    
41.         
    
42.         j = j + 1
    
43.         i = i + 1
    
44.     Loop
    
45.     If i > DATA_ROW Then
    
46.         Workbooks(sFileName).Activate
    
47.         ActiveWorkbook.Save
    
48.         Workbooks(MeFile_Name).Activate
    
49.     End If
    
50.     Exit Sub
    
51. Error_Handler:
    
52.     MsgBox "BASE1_IMPORT Error"
    
53. End Sub

复制代码

是不是这段代码 没改？

hyjianjian

请高人围观。。。。

kuaile5935

附件中出了TXT的说明文档，啥都没看见。

hyjianjian

kuaile5935 发表于 2015-8-6 09:22
附件中出了TXT的说明文档，啥都没看见。

kuaile5935:
里面包含全套附件！附件里面包含详细说明

kuaile5935

两种方式可以实现。
第一种是。把文件存 “E:\Sub\Monthly\”中，在“Monthly”下面再建立一个文件夹，命名为“Report”
之后把“RIKA00”宏代码前面的两个常数改为：（一定要注意，最后又一个“\”,千万不能忘。）
Const Defalt_Path = "E:\Sub\Monthly\"
Const Defalt_Path1 = "E:\Sub\Monthly\Report\"

第一种是。把文件存 “E:\Sub\Monthly\”中，在“Monthly”下面再建立一个文件夹，命名为“Report”
之后把“Monthly”文件夹共享，选择指定用户，用户名是自己的电脑。
之后把“RIKA00”宏代码前面的两个常数改为：（一定要注意，最后又一个“\”,千万不能忘。）
Const Defalt_Path = "\\192.168.1.X\TRCFTPICS\Sub\Monthly\"
Const Defalt_Path1 = "\\192.168.1.X\TRCFTPICS\Sub\Monthly\Report\"
其中的“192.168.1.X”是自己的IP地址。

hyjianjian

kuaile5935 发表于 2015-8-7 10:07
两种方式可以实现。
第一种是。把文件存 “E:\Sub\Monthly\”中，在“Monthly”下面再建立一个文件夹，命 ...

如你所说，第一步骤能正确执行！但是抓取数据后，再写出来报错！麻烦你模拟操作一次！还有个问题，代码执行得很慢！可以帮我优化下代码吗

hyjianjian

kuaile5935 发表于 2015-8-6 09:22
附件中出了TXT的说明文档，啥都没看见。

您好，有道难题 能帮忙看看吗？http://club.excelhome.net/thread-1222953-1-1.html