Question

VB中如何让Excel中的数值赋值给text文本框

Private Sub Command1_Click()
Dim i As Integer, r As Integer
Dim newxls As Excel.Application
Dim newbook As Excel.Workbook
Dim newsheet As Excel.Worksheet
Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
Set newbook = newxls.Workbooks.Open(App.Path & "\工资数据\" & Text3)
Set newsheet = newbook.Worksheets(Text2.Text) '创建工作表
r = newsheet.Range(Text1.Text).Rows.Count
Open App.Path & "\MyFile.txt" For Output As #1
Print #1, "#注意：本文件中的金额均以分为单位！"
Print #1, "#明细指令信息"
Print #1, "#其中付款账号类型：灵通卡、理财金0；信用卡1"
Print #1, "#币种|日期|顺序号|付款帐号|付款账号类型|收款帐号|收款帐号名称|金额|用途|备注信息|是否允许收款人查看付款人信息|"
Close
newxls.Quit
End Sub

这是将excel中的数据粘贴到txt文本框中，如何将excel中的一个数值赋值到text中？？？？

Answer 1

Dim myData
myData=newsheet.Range("A1")

这样吧单元格A1的值保存在变量myData中，你要再赋值到哪里都可以。