依据条件用VBA实现明确文件路径与打开密码的数据提交

feilv205

VBA小白边请教各位老师边学习。

以下是从老师帮解决信息分配问题的VBA复制到数据提交上，想在其中添加两个功能：

1、“A01.xlsx”与“A02.xlsx”存于网络工作盘上，设置有文件打开密码，需要在打开语句中把网络工作盘的地址具体化，同时在语句中设置好打开密码；
2、当F列中的数值为“是”时，该行对应的J列、K列数据拷贝提交到“A01.xlsx”中，F列中非”是“时的数据拷贝提交到“A02.xlsx”里。
3、数据拷贝提交到“A01.xlsx”、“A02.xlsx”最后一行，保持自动添加的模式。

Sub 提交数据()
Dim ar As Range, myr%, m%
myr = Range("c65535").End(3).Row
xx = ThisWorkbook.Path & "\A01.xlsx"   
Set wb = Workbooks.Open(xx)
    With wb.Sheets("表1")
    m = .Range("e1").End(3).Row
    If m = myr Then wb.Close: Exit Sub
    ThisWorkbook.Sheets("工作表").Range("j" & m + 1 & ":j" & myr).Copy
    Range("h" & m + 1).PasteSpecial xlPasteValues
    ThisWorkbook.Sheets("工作表").Range("k" & m + 1 & ":k" & myr).Copy
    .Range("i" & m + 1).PasteSpecial xlPasteValues
          End With
wb.Close 1
Set wb = Nothing
MsgBox "数据提交成功"
End Sub

以上，先谢过各位老师！

feilv205

朱荣兴 发表于 2018-8-9 09:00
请上传你的excel附件才可能帮到你的

感谢版主，问题已得到解决！