跨工作薄修改数据

LeosingLiu

如何把以下代码修改为跨工作薄使用的，被修改文件地址为"192.168.251.254/日志/被修改文件.xlsx"的sheet1

1. Private Sub 修改_Click() '修改
   
2.   Dim n As Integer
   
3.      If 项目编号.Text <> "" Then
   
4.         With Sheet1
   
5.            For n = 2 To .Range("a65536").End(xlUp).Row
   
6.               If 项目编号.Text = .Range("a" & n) Then Exit For
   
7.               Next n
   
8.                 .Range("b" & n) = 检测区分.Text
   
9.                 .Range("a" & n) = 项目编号.Text
   
10.                 .Range("c" & n) = 项目名称.Text
    
11.                 .Range("d" & n).Value = 区域.Text
    
12.                 .Range("am" & n) = 委托单位.Text
    
13.                 .Range("f" & n) = 受检单位.Text
    
14.                 .Range("g" & n) = 受检单位地址.Text
    
15.                 .Range("h" & n) = 联系人.Text
    
16.                 .Range("i" & n) = 联系人电话.Text
    
17.                 .Range("j" & n) = 检测费.Text
    
18.                 .Range("k" & n) = 业务员.Text
    
19.                 .Range("l" & n) = 报告份数.Text
    
20.                 .Range("m" & n) = 商定日期.Text
    
21.                 .Range("n" & n) = 点位数量.Text
    
22.                 .Range("o" & n) = 样品来源.Text
    
23.                 .Range("p" & n) = 样品数量.Text
    
24.                 .Range("q" & n) = 是否退样.Text
    
25.                 .Range("r" & n) = 检测项目.Text
    
26.                 .Range("s" & n) = 检测方法.Text
    
27.                 .Range("t" & n) = 委托单位地址.Text
    
28.                 .Range("u" & n) = 委托人.Text
    
29.                 .Range("v" & n) = 委托人电话.Text
    
30.                 .Range("w" & n) = 检测依据.Text
    
31.                 .Range("x" & n) = 检测项目代码.Text
    
32.                 .Range("y" & n).Value = 付款方式.Text
    
33.                 .Range("z" & n).Value = 收款情况.Text
    
34.                 .Range("aa" & n).Value = 开票情况.Text
    
35.                 .Range("ab" & n).Value = 交付方式.Text
    
36.                 .Range("ac" & n).Value = 收件人.Text
    
37.                 .Range("ad" & n).Value = 收件人电话.Text
    
38.                 .Range("ae" & n).Value = 邮寄地址.Text
    
39.                 .Range("af" & n).Value = 门头名字.Text
    
40.                 .Range("ag" & n).Value = 年代.Text
    
41.                 .Range("ah" & n).Value = 委托日期编码.Text
    
42.                 .Range("ai" & n).Value = 委托序号.Text
    
43.                 .Range("ak" & n).Value = 检测区分代码.Text
    
44.                 .Range("al" & n).Value = 类别.Text
    
45.                 .Range("bj" & n).Value = 是否分包.Text
    
46.                 .Range("bk" & n).Value = 分包检测项目.Text
    
47.                 .Range("bl" & n).Value = 分包单位名称.Text
    
48.                 .Range("bm" & n).Value = 资质认定证书编号.Text
    
49.                 .Range("bn" & n).Value = 分包单位联系信息.Text
    
50.                 .Range("bo" & n).Value = 备注.Text
    
51.                 .Range("aq" & n).Value = Now
    
52.                 .Range("ar" & n).Value = Worksheets("辅助表格").Range("d4").Value
    
53.          End With
    
54.    End If
    
55.     If MsgBox("【" & 项目编号.Text & "】项目信息已修改！" & Chr(13) & Chr(13) & "是否继续设置项目信息？" & Chr(13) & Chr(13) & "按【是】继续，按【否】退出。", 32 + vbYesNo, "提示") = vbNo Then
    
56.   End
    
57.   End If
    
58. End Sub

复制代码

捞屎人

没有模拟文件  你让人咋写