求老师帮忙修改代码，谢谢！

荒烟平楚

    说明：运行程序的时候，程序先将网络路径上面的"注塑半成品日报.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

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

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

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

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