UC知道如何将VB中的text文本输入到Excel中的A1格子里？
来源：百度知道 编辑：UC知道 时间：2024/05/03 03:17:43
可将VB中的text文本输入到到Excel中的A1格子，
还可将Excel中的A1数据提取到VB中的text中
谢谢下面那位先生的帮助，我试了一下，可以是可以，不过我想不让Excel打开就可以将Excel中的A1文本输入显示到text文本中，我将
'Set xlwkbk = xlApp.Workbooks.Open("c:\text.xls")
'Set xlwkbk = xlApp.Workbooks.Add 注释掉，只用Text1.Text = xlwkbk.sheets(1).range("A1").Value
会提示出错，怎么办？
还有我想在text.xls中新建sheets(2)并将sheets(2)更改为“20070801”怎么写好？新建完后不能打开Excel，并提示更改完成。怎么做？
还可将Excel中的A1数据提取到VB中的text中
谢谢下面那位先生的帮助，我试了一下，可以是可以，不过我想不让Excel打开就可以将Excel中的A1文本输入显示到text文本中，我将
'Set xlwkbk = xlApp.Workbooks.Open("c:\text.xls")
'Set xlwkbk = xlApp.Workbooks.Add 注释掉，只用Text1.Text = xlwkbk.sheets(1).range("A1").Value
会提示出错，怎么办？
还有我想在text.xls中新建sheets(2)并将sheets(2)更改为“20070801”怎么写好？新建完后不能打开Excel，并提示更改完成。怎么做？
dim xlApp, xlWkbk
set xlApp=CreateObject("Excel.application")
set xlWkbk=xlApp.Workbooks.Open("c:\test.xls") '打开现有工作簿
set xlWkbk=xlApp.Workbooks.Add '新建工作簿
xlWkbk.sheets(1).range("A1").Value=Text1.Text '将VB中的text文本输入到到Excel中的A1格子，颠倒一下就是将Excel中的A1数据提取到VB中的text中
xlApp.Visible=True