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 编辑 ]