大家帮我看看那里错了。文件导入后，关机时还会打开这个Excel文件.

felixtian88

Private Sub cmdImportFromExcel_Click()
On Error GoTo Err_cmdImportFromExcel_Click
    Dim strPathName As String           '输出文件路径名
    Dim objApp  As Object               'Excel程序
    Dim objBook As Object               'Excel工作簿
    Dim rst As Object                   '子窗体记录集
    Dim curSum As Currency              '折后金额总计
    Dim intN As Integer                 '循环计数器
   
     '通过对话框取得Excel文件名
    With FileDialog(3) 'msoFileDialogOpen
        .InitialFileName = CurrentProject.Path
        .Filters.Clear
        .Filters.Add "Microsoft Excel", "*.xls"
        If .Show Then strPathName = .SelectedItems(1)
    End With
    '对话框取消则退出过程
    If strPathName = "" Then Exit Sub
   
   '设置鼠标指针为沙漏形状
    DoCmd.Hourglass True
    '创建Excel对象
    Set objApp = CreateObject("Excel.Application")
    '打开模板文件
    Set objBook = objApp.Workbooks.Open(strPathName)
    '选中激活"Sheet1"工作表
    objBook.Sheets("Sheet1").Select
    Me.Hotel.SetFocus
    If Not Me.NewRecord Then DoCmd.RunCommand acCmdRecordsGoToNew
    With objApp
       '根据读取订单表头
        Me.Company = .Range("E2")
        Me.MonthID = .Range("J6")
        Me.YearID = .Range("H2")
        Me.ABFlag = .Range("I2")
          Me.Hotel = .Range("E2")
        Me.MonthID = .Range("J6")
        Me.YearID = .Range("H2")
        Me.ABFlag = .Range("I2")
        Me.[99100] = .Range("J8")
            Me.[99101] = .Range("J10")
         
                    
        '保存主窗体记录
        Me.Dirty = False
        '取得工作表中的有效数据行数
         End With
  
   
   '设置鼠标指针为沙漏形状
    DoCmd.Hourglass True
    '创建Excel对象
    Set objApp = CreateObject("Excel.Application")
    '打开模板文件
    Set objBook = objApp.Workbooks.Open(strPathName)
    '选中激活"Sheet1"工作表
    objBook.Sheets("Sheet1").Select
    Me.Hotel.SetFocus
    If Not Me.NewRecord Then DoCmd.RunCommand acCmdRecordsGoToNew
    With objApp
       '根据读取订单表头
        Me.Company = .Range("E2")
        Me.MonthID = .Range("K6")
        Me.YearID = .Range("H2")
        Me.ABFlag = .Range("I2")
          Me.Hotel = .Range("E2")
        Me.MonthID = .Range("K6")
        Me.YearID = .Range("H2")
        Me.ABFlag = .Range("I2")
        Me.[99100] = .Range("K8")
            Me.[99101] = .Range("K10")
         
        '保存主窗体记录
        Me.Dirty = False
        '取得工作表中的有效数据行数
         End With
  
   
      

    MsgBox "导入成功！", vbInformation, "提示"
   
Exit_cmdImportFromExcel_Click:
    If Not objBook Is Nothing Then objBook.Saved = True
    If Not objApp Is Nothing Then objApp.Quit
    '恢复鼠标指针
    DoCmd.Hourglass False
    '释放对象变量内存
    Set objApp = Nothing
    Set objBook = Nothing
    Set rst = Nothing
    Exit Sub

Err_cmdImportFromExcel_Click: '错误处理程序
    MsgBox Err & vbCrLf & Err.Description, vbCritical, "出错"
    Resume Exit_cmdImportFromExcel_Click
   
   
   
End Sub

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html