论坛首页 › 电脑综合 › 请教一下高手，如何将VB窗体中的多个Textbox中内容导出到Excel的多个单元格里。

hero245 发表于 2010-7-4 20:24:52

请教一下高手，如何将VB窗体中的多个Textbox中内容导出到Excel的多个单元格里。

最近想写个小工具，用来调试公司的产品，没有学过VB，只是大概的看了一下VB教程的前面的内容。现在想通过一个按钮将VB窗体中的多个Textbox的内容导出到Excel的多个单元格里，再打印出来，但不会怎么做，不知那位好心人能帮忙一下，谢谢！
http://cache.amobbs.com/bbs_upload782111/files_30/ourdev_565876CFU1XS.jpg
(原文件名:调试窗体.jpg)

zcllom 发表于 2010-7-4 22:39:38

VB编程助手里有操作EXCEL的例子，而且有好几个。所以。。。

hero245 发表于 2010-7-5 00:21:35

谢谢回复【1楼】zcllom 星罗棋布
vb编程助手里有操作excel的例子，而且有好几个。所以。。。
-----------------------------------------------------------------------

谢谢，刚下载了VB编程助手，很好的工具，也有我想要的东西，但太晚了，先下载了，明天有时间再仔细看一下，睡觉先！

jichong211 发表于 2010-7-5 01:11:16

excel 不就是转成csv文件吗

zq186 发表于 2010-7-5 08:42:37

建个数组，把每个单元格的内容复制到数组，用逗号隔开，保存成csv文件就可以用excel打开

lovemcu1 发表于 2010-7-10 22:08:36

建个数组，把每个单元格的内容复制到数组，chr(9)隔开，保存成xls文件就可以用excel打开

xiancaiyu 发表于 2010-8-15 22:04:21

Private Sub Command1_Click()
    Dim i As Integer
    Dim j As Integer
    Dim ex As Object
    Dim exwbook As Object
    Dim exsheet As Object
    Dim X As Integer
    Dim ss As String
    ss = "fsde"
    Set ex = CreateObject("Excel.Application")
    Set exwbook = Nothing
    Set exsheet = Nothing
    Set exwbook = ex.workbooks().Open("c:\bx002\mold01.xls") 'Add
    Set exsheet = exwbook.Worksheets("sheet1")
    ex.Range("d3").Value = ex.Range("d3").Value + "王宏武 "
    Dim r As PictureBox
    'r = Picture1.Picture
    Dim d As IPictureDisp
'    d = Me.Picture1.Picture
's = SavePicture(d, "c:\del.bmp")
   ' ex.Range("c7").Value = Picture1.PaintPicture
    '保存输入到abc.xls
    'ex.Border.LineStyle = 2
    exwbook.SaveAs "c:\abc1.xls"
   ex.workbooks.Close
    '退出excel
    ex.Quit
End Sub

查看完整版本: 请教一下高手，如何将VB窗体中的多个Textbox中内容导出到Excel的多个单元格里。