| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 880 人关注过本帖, 1 人收藏
标题:求助一个关于用VB操作EXCEL并打印的问题。谢谢。
只看楼主 加入收藏
OKI4
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2011-10-21
结帖率:71.43%
收藏(1)
已结贴  问题点数:15 回复次数:7 
求助一个关于用VB操作EXCEL并打印的问题。谢谢。
请各位师傅帮忙看下,打开工程1后,双击 TEXT3 看看,
问题就写在里面,谢谢了。

问题VB.zip (15.78 KB)
搜索更多相关主题的帖子: 谢谢 打印 EXCEL 
2013-04-18 20:30
OKI4
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2011-10-21
收藏
得分:0 
还在线等。。。。谁帮个忙吧。。谢谢了
2013-04-18 23:23
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:0 
没看见什么问题,只是加两个endif,你代码没完成。
2013-04-19 06:58
OKI4
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2011-10-21
收藏
得分:0 
以下是引用lowxiong在2013-4-19 06:58:52的发言:

没看见什么问题,只是加两个endif,你代码没完成。


有啊。。。点TEXT3,我标注的那些中文字就是问题。。
不会用VB操作EXCEL。。
Private Sub Text3_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If Text3.Text = Text2.Text Then
问题 '1.弹出 "是否保存" 提示框
        '2.如果按下"是"
        '3.Text4.text里的数据值会累加(如果为空,则为"0")
        '4.打开 "C:\A.xls"文档
        '5.将 Text1.text \ Text2.text \Text3.text 数据分别填入 A1 , B1 , C1 单元格
        '(如果A1单元格有数据,则填入 A2 , B2 , C2)以此类推
        '6.保存并关闭 "A.xls文档"
        '7.再打开"C:\B.xls"文档
        '8.将Text1.text数据填入C1单元格,将Text2.text数据填入E5单元格,将Text3.text数据填入B14单元格
        '9.打印此文档
        '10.不保存,关闭 "B.xls文档"
        '11.清空 Text1 \ Text2 \ Text3
        '12.光标停在 Text1.text 上
        '13.如果按 “否” 则清空 Text1 \ Text2 \ Text3  光标停在 Text1.text 上
        '结束


请帮个忙,谢谢
2013-04-19 07:18
OKI4
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2011-10-21
收藏
得分:0 
再顶一下
2013-04-19 10:04
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:15 
Private Sub Text3_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If Text3.Text = Text2.Text Then
'1.弹出 "是否保存" 提示框
             if  MsgBox("是否保存?", vbYesNo) = vbYes then          '按下YES
        '3.Text4.text里的数据值会累加(如果为空,则为"0")
               if len(text4.text)=0 then
                     text4.text = 0
               else
                     text4.text =val(text4.text)+1
               end if

               '打开 使用操作EXCLE 的方法打开 XLS 文件
Dim ExcelID As Excel.Application        '定义对象
Set ExcelID = New Excel.Application     '生成新的 Excel 对象

With ExcelID
    .Visible = True             'debug
    .Visible = False             '显示EXCEL ,如果不用显示,这里就不显示
    .Caption = "应用程序调用 Microsoft Excel"            'EXECL 标题

        '4.打开 "C:\A.xls"文档
    .Workbooks.Open "C:\A.xls"     '打开文件
    .Worksheets.Item(1).Activate         '设置第一个工作表为活动工作表

        '5.将 Text1.text \ Text2.text \Text3.text 数据分别填入 A1 , B1 , C1 单元格
        '(如果A1单元格有数据,则填入 A2 , B2 , C2)以此类推
               i=1                        '搜索空单元格
               do  .cells(1,i)<>""
                   i=i+1
               loop
              .cells(1,i)=text1.text      '找到后填数据。此处有BUG。如果填满 255 列后,继续搜索空单元格和填数据,会导致出错。
              .cells(2,i)=text2.text
              .cells(3,i)=text3.text

        '6.保存并关闭 "A.xls文档"
              .Worksheets.save            '保存所有,好像会生产一个标志文件,会提示覆盖。
              .Worksheets.close           '关闭。这二句需要测试。

        '7.再打开"C:\B.xls"文档
    .Workbooks.Open "C:\B.xls"     '打开文件
    .Worksheets.Item(1).Activate         '设置第一个工作表为活动工作表  

        '8.将Text1.text数据填入C1单元格,将Text2.text数据填入E5单元格,将Text3.text数据填入B14单元格            
              .cells(3,1)=text1.text
              .cells(5,5)=text2.text
              .cells(2,14)=text3.text
        '9.打印此文档
              .Worksheets.Item(1).PrintOut                 '未经测试
        '10.不保存,关闭 "B.xls文档"
              .Worksheets.close              
              .quit
          end with
end if
        '11.清空 Text1 \ Text2 \ Text3
        '13.如果按 “否” 则清空 Text1 \ Text2 \ Text3  光标停在 Text1.text 上
       text1.text=""
       text2.text=""
       text3.text=""
        '12.光标停在 Text1.text 上
       text1.SetFocus

   end if
end if
end sub
----------代码未经任何方式的测试,纯浏览器编写,自行测试和解决问题。-----------

[ 本帖最后由 风吹过b 于 2013-4-19 17:25 编辑 ]

授人于鱼,不如授人于渔
早已停用QQ了
2013-04-19 17:21
OKI4
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2011-10-21
收藏
得分:0 
哇,谢谢版主师傅,小错误我可以试着边调边改,就是不懂怎么用VB操作EXCEL,你解答的很详细了,其他小地方我可以自己改了,非常感谢!!!
非常感谢!!!
2013-04-19 18:30
ds87
Rank: 2
等 级:论坛游民
帖 子:8
专家分:15
注 册:2013-6-18
收藏
得分:0 
学习了。。
2013-06-18 03:55
快速回复:求助一个关于用VB操作EXCEL并打印的问题。谢谢。
数据加载中...
 
   



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

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