Office中国论坛/Access中国论坛

标题: 求老师帮忙修改代码，谢谢！ [打印本页]

作者: 荒烟平楚 时间: 2012-5-12 10:34
标题: 求老师帮忙修改代码，谢谢！
说明：运行程序的时候，程序先将网络路径上面的"注塑半成品日报.xls"打开，复制"STK"表格 A6:CF65536 范围的内容到当前工作簿的"注塑半成品日报"表格中。

请求：1、网络路径上的表格有65536行，实际有内容的行最多只有两千行左右。复制A6:CF65536 范围内容过来后表格很大，滚动条很长运行很卡。现在想改为：只复制A6:CF 范围内有内容的行(最后一行行号以A列最后一行为准）

2、如果网络路径中不存在 Format(导入表格的日期.Value) & "注塑半成品日报.xls" 这个表格，那么程序照样会错误提示"已按要求成功导入注塑半成品日报!"，而不会提示 Else 后面的内容，想将其修正。

求改代码，谢谢！

Private Sub 导入报表_Click()
On Error Resume Next
Dim A
Dim wb
A = ThisWorkbook.FullName
f = "http://10.36.100.13/shareDOC/file/061108132611/070510094325/081125151740/" '打开共享文件，将网络路径：按Ctrl + V到此处

If Dir(f & Format(导入表格的日期.Value) & "注塑半成品日报.xls") <> "" Then
Set wb = Workbooks.Open(f & Format(导入表格的日期.Value) & "注塑半成品日报.xls")
wb.Sheets("STK").Range("A6:CF65536").Copy ThisWorkbook.Sheets("注塑半成品日报").Range("A6")
MsgBox "已按要求成功导入注塑半成品日报!"
wb.Saved = True
wb.Close

Else
Cells.AddComment.Delete
MsgBox "请检查共享文件是否连接，或文件不存在。"
If Dir(f & Format(导入表格的日期.Value) & "注塑半成品日报.xls") = "" Then
MsgBox "需要导入的库存表不存在，请确定是否已经上传！"

End If
End If
End Sub

作者: roych 时间: 2012-5-13 00:58

实际有内容的行最多只有两千行左右

是什么意思啊？
1、建议采用ADO来处理会好些。不过没看到你的这个文件：

Format(导入表格的日期.Value) & "注塑半成品日报.xls"

2、文件名不存在时只弹出：
MsgBox "请检查共享文件是否连接，或文件不存在。"
和
MsgBox "需要导入的库存表不存在，请确定是否已经上传！"
两个提示，不会存在你所说的那个情况，具体需要看你的文件才能确定。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)