当textbox被输入文本并按buttton后文本内容被送到预设好的excel里面的特定位置(去参加计算)求代码！

 

当textbox被输入文本并按buttton后文本内容被送到预设好的excel里面的特定位置(去参加计算)求代码！ [已结帖,结帖人:liuyan98se]   .
[华 软 网]
编程论坛　 楼主 我在窗体上画比如7个textbox,和一个button,当7组数字分别输入到文本框内后，按button,这时7组数字将被送到某个预先存在的excel表里面的指定位置(该abc.xls 和工程在同一个文件夹里，该表格内有大量公式)，比如分别将该7组数字放到a1 b3 c6 d2 e9 f8 g4,如何实现呢？请写详细点，我菜

说明：貌似要先一个命令打开这个工作表吧，那就请将这个打开过程不可视     .
[华 软 网]
编程论坛　1　个网友回答：
VB code
Private Sub Command1_Click()
    Dim xApp As Object
    Dim xBook As Object
    Dim xSheet As Object
    Dim aAddress()
    Dim i As Long
   
    On Error GoTo ErrHandler

    Set xApp = CreateObject("Excel.Application")
    xApp.Visible = False
    Set xBook = xApp.Workbooks.Open("C:/temp/book1.xls")
    Set xSheet = xBook.Sheets(1)
   
    aAddress = Array("A1", "B3", "C6", "D2", "E9", "F8", "G4")
    For i = 0 To 6
        xSheet.Range(aAddress(i)).Value = Text1(i).Text
    Next

    Set xSheet = Nothing
    xBook.Save
    Set xBook = Nothing
ExitEntry:
    Set xSheet = Nothing
    If Not xBook Is Nothing Then
        xBook.Close False
        Set xBook = Nothing
    End If
    If Not xApp Is Nothing Then
        xApp.Quit
        Set xApp = Nothing
    End If
   
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExITEntry
End Sub
    .
[华 软 网]
编程论坛　2　个网友回答： 把路径 C:/temp/book1.xls 更改为 App.Path & "/abc.xls"    .
[华 软 网]
编程论坛　3　个网友回答：
VB code

Option Explicit
Dim xlapp As Variant
Dim xlBook As Variant
Dim xlSheet As Variant
Dim i As Integer
Private Sub Command1_Click()
xlSheet.Cells(1, 1) = Text1.Text
xlSheet.Cells(1, 2) = Text2.Text
xlSheet.Cells(1, 3) = Text3.Text
xlSheet.Cells(1, 4) = Text4.Text
End Sub

Private Sub Form_Load()
Set xlapp = CreateObject("excel.application")
xlapp.Visible = True
Set xlBook = xlapp.Workbooks.Add
Set xlSheet = xlBook.worksheets(1)
End Sub

Private Sub Form_Unload(Cancel As Integer)
xlapp.QuIT '关闭EXCEL
Set xlapp = Nothing '释放EXCEL对象
End Sub
    .
[华 软 网]
编程论坛　4　个网友回答： 1楼正解。。但是我推荐是先计算。然后再输出到Excle中会比较好。。能在Excle中进行的计算。。估计也不会很复杂    .
[华 软 网]
编程论坛　5　个网友回答： 我就是想在excel里面计算    .
[华 软 网]
编程论坛　6　个网友回答： 1楼正确，4楼错误，excel中有了计算公式    .
[华 软 网]
编程论坛　7　个网友回答： 按照2楼的做法为什么会出现错误，编译错误：错误的参数号或无效的属性赋值    .
[华 软 网]
编程论坛　8　个网友回答： 按照2楼的做法为什么会出现错误，编译错误：错误的参数号或无效的属性赋值    .
[华 软 网]
编程论坛　9　个网友回答： 对不起。应该是一楼，我是按1楼说法做的    .
[华 软 网]
编程论坛　10　个网友回答： 编译错误应该不是本段代码的错误，通常是由于没有全编译引起的：VB 选项 “Tools/Option.../General/Compile On Demand” 不要打钩。 

华软网声明：本站内容全部来自网络，如有侵犯您版权请来信指出，本站立即删除。
进入论坛讨论：当textbox被输入文本并按buttton后文本内容被送到预设好的excel里面的特定位置(去参加计算)求代码！
点击在百度中查找更多关于 当textbox被输入文本并按buttton后文本内容被送到预设好的excel里面的特定位置(去参加计算)求代码！-基础教程-华软网
点击在谷歌中查找更多关于 当textbox被输入文本并按buttton后文本内容被送到预设好的excel里面的特定位置(去参加计算)求代码！-基础教程-华软网

欢迎转载，但请保留出处，本文章转自[华软网] 原文链接：http://www.huarw.com/program/vb/vb01/200902/1670261.html

欢迎转载，但请保留出处，本文章转自[华软网] 原文链接：http://www.huarw.com/program/vb/vb01/200902/1670261.html

欢迎转载，但请保留出处，本文章转自[华软网] 原文链接：http://www.huarw.com/program/vb/vb01/200902/1670261.html