当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