Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Private Sub Command1_Click()
Dim I As Integer
Set xlsApp = Excel.Application
xlsApp.Visible = False
Set xlsBook = xlsApp.Workbooks.Open("D:\11.xls")
I = 1
Do While xlsApp.Sheets(1).cells(I, 1) <> ""
I = I + 1
Loop
xlsApp.Sheets(1).cells(I, 1) = Text1.Text
xlsBook.Close (True)
xlsApp.Quit
Set xlsApp = Nothing
MsgBox "数据写入成功！".
End Sub
Open "C:\Program Files\report.txt" For Input As #1
'将TXT的数据按行写入数组
ReDim s(1 To 60000)
For i = 1 To 60000 '写到60000
On Error GoTo 退出读数
Line Input #1, rline '按行将数据读出
s(i) = rline
Next i
'将数组数据写入电子表格
退出读数:
Workbooks.Add Template:="c:\book.Xls"
Cells(1, 1).Resize(UBound(s), 1) = WorksheetFunction.Transpose(s)
Erase s本回答被提问者采纳
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Private Sub Command1_Click()
Dim I As Integer
Set xlsApp = Excel.Application
xlsApp.Visible = False
Set xlsBook = xlsApp.Workbooks.Open("D:\11.xls")
I = 1
Do While xlsApp.Sheets(1).cells(I, 1) <> ""
I = I + 1
Loop
xlsApp.Sheets(1).cells(I, 1) = Text1.Text
xlsBook.Close (True)
xlsApp.Quit
Set xlsApp = Nothing
MsgBox "数据写入成功！"
End Sub
vb输入输出excel数据
在VB中实现Excel数据读写的方法如下：1. 引入Excel类型库：在"工程"菜单中选择"引用"，添加"Microsoft Excel 9.0 Object Library"，点击"确定"。2. 定义Excel对象：在通用对象的声明过程中定义三个Excel对象：xlApp（应用）、xlBook（工作簿）、xlSheet（工作表）。3. 操作Excel表常用命令：创建Excel...
vb 数据怎么写入excel?
MsgBox"数据写入成功！"EndSub 方法一：可以试着用VB书写一段调用SQLServer数据库DTS的代码，然后就可以像直接使用DTS进行数据导入一样就行Excel与SQLServer数据之间的迁移了。方法二：可以用VB来操作EXCEL，然后一条数据一条数据的插入到数据库中，这种方法不推荐使用，因为VB操作EXCEL是非常慢的，如果数据...
vb怎么打开Excel文件并向特定的单元格填写内容excelvb打开文件...
从\\"工程\\"菜单中选择\\"引用\\"栏;选择MicrosoftExcel 9.0 Object Library(EXCEL2000)，然后选择\\"确定\\"。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp AsExcel.Application Dim xlBook As Excel.WorkBook Dim xlSheet AsExcel.Worksheet 3、在程序中操作EXCEL...
VB操作excel,给excel录入数据
新建VB的EXE工程，使用如下代码在第一行第一列写入vb操作excel：Option Explicit Dim xlapp As Object Dim xlBook As Object Dim xlSheet As Object Dim A As String Private Sub Command1_Click()Set xlapp = CreateObject("excel.application")xlapp.Visible = True Set xlBook = xlapp.Workbook...
VB怎么添加excel的工作表
1、首先，在Excel中按快捷键“Alt + F11”，如下图所示。2、其次，在VBA编辑器中依次单击“插入”-->“模块”，如下图所示。3、然后，在“模块”中输入如下代码：Option Explicit Sub addwork()Sheets.Add after:=Sheets(Sheets.Count)End Sub 4、接着，在VBA编辑器的左侧输入模块的名称，如下...
vb怎么查找数据库中的数据存入到excel里vb怎么查找数据库中的数据存入...
您可以使用VB语言编写一个程序来连接数据库，执行查询语句并将结果存入Excel。首先，您需要使用ADODB对象建立与数据库的连接，然后使用Recordset对象执行查询并获取结果集。接着，您可以使用Excel对象创建一个工作簿，并将查询结果逐行写入到Excel中。最后，保存并关闭工作簿即可。这样就能实现将数据库中的数据...
如何用VB代码实现往EXCEL中录入文字时,控制文字的格式
VB访问EXCEL 先需要在工程中引用Microsoft Excel类型库：从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择"确定"。表示在工程中要引用EXCEL类型库。然后访问和设置字体的代码如下：Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet ...
怎样实现用vb导入excel表格
首先，在VB中添加对Excel对象库的引用。然后，通过创建Excel应用程序对象（Application）实例来打开Excel文件。接着，获取工作簿（Workbook）和工作表（Worksheet）对象，从而访问Excel中的数据。使用合适的函数（例如Range或Cells）来读取工作表中的数据，并将其导入到VB的本地数据结构中。此外，可以使用循环...
VB窗体下如何嵌入一个EXCEL表
1.部件-添加-可插入对象--选择excel 表格就可以在窗体添加该表格控件 2.工程-引用-Microsoft Excel 11.0 Object Library 下面给个简单的例子 Private Sub Command1_Click() Dim xlExcel As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim AppExcel As Object ...
VB怎样操作向excel中插入数据(求代码)
通过看你的图片,和你的描述不是很一致.只能给你一些思路.Sub 循环插入()For i = 1 To 10 '设定循环次数,从1到10 Cells(i, 1) = i * i '单元格i行1列输入数据i*iNextEnd Sub'此程序运行后是在A1:A10的单元格依次填充1的平方,到10的平方 ...
