| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1861 人关注过本帖
标题:请教各位高手:vb6.0 对excel 操作的问题.谢谢。
只看楼主 加入收藏
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:331
专家分:561
注 册:2013-10-30
结帖率:98.41%
收藏
已结贴  问题点数:20 回复次数:1 
请教各位高手:vb6.0 对excel 操作的问题.谢谢。
Dim xlApp, xlBook, xlSheet

Private Sub Command1_Click()'按钮1
   Set xlApp = CreateObject("Excel.Application")
   Set xlBook = xlApp.Workbooks.Add
   Set xlSheet = xlBook.sheets(1)
   xlApp.Visible = True
End Sub

Private Sub Command2_Click()'按钮2
    If xlSheet = "" Then
       MsgBox "no"
      End
    else
       xlSheet.range("a1") = 1
     End If
End Sub
以上的按钮2代码,如果变为附件的按钮2的代码,则先点击附件的按钮2时,不会出错;如果先点击附件的按钮1,再点击附件的按钮2时,则红色的代码出错。
如何改红色的代码,使之知道 Set xlSheet = xlBook.sheets(1)而不出错,从而执行 xlSheet.range("a1") = 1语句呢?
用VB6.0操作Excel.zip (5.53 KB)




[此贴子已经被作者于2016-3-14 10:23编辑过]

搜索更多相关主题的帖子: excel 
2016-03-14 10:21
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
收藏
得分:20 
Private Sub Command1_Click() '按钮1
   Set xlApp = CreateObject("Excel.Application")
   Set xlBook = xlApp.Workbooks.Add
   Set xlSheet = xlBook.Sheets(1)
   xlApp.Visible = True
End Sub

Private Sub Command2_Click() '按钮2
If IsEmpty(xlSheet) <> True Then'判断是否打开
  If xlSheet.UsedRange.Rows.Count = 1 Then'判断是否空表
    If xlSheet.UsedRange.Columns.Count = 1 Then
      If xlSheet.UsedRange.Cells(1, 1) = "" Then
        MsgBox "空表格"
      Else
        xlSheet.range("a1") = 1
      End If
    End If
  End If
Else
  MsgBox "表格不存在"
End If
End Sub
收到的鲜花
  • HVB62016-03-14 11:28 送鲜花  5朵   附言:我很赞同
2016-03-14 11:25
快速回复:请教各位高手:vb6.0 对excel 操作的问题.谢谢。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021051 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved