如何用VB6.0实现用对话框选择excel文件,并调用其中数据存成数组后进行拟合计算

用对话框选择数据文件，调入数据并进行多项式回归

举报该文章

相关建议 2015-07-30

Dim a() As String, tem As String
Dim i As Integer
'è¿è¡åè¯·"å·¥ç¨-å¼ç¨" "Microsoft Excel 12.0 Object Library" æé©
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim j As Integer
Private Sub Command1_Click()
'xlApp.NewWorkbook.Add ("E:\1.xls")
Set xlApp = CreateObject("Excel.Application") 'åå»ºEXCELè±¡
Set xlBook = xlApp.Workbooks.Open("E:\1.xls") 'åè®¾ç®æ ExcelEç
xlBook.Sheets("sheet1").Range("A1") = "é´"
xlBook.Sheets("sheet1").Range("B1") = "ç´æµçµå"
xlBook.Sheets("sheet1").Range("C1") = "ç´æµçµæµ"
xlBook.Sheets("sheet1").Range("D1") = "ä¾§çµå"
xlBook.Sheets("sheet1").Range("E1") = "ä¾§çµæµ "
Open "E:\1.txt" For Input As #1 'åè®¾æºæ°æ®ææ¬Eç
k = 2
Do While Not EOF(1)
Line Input #1, tem

a() = Split(tem, " ")
For i = 0 To UBound(a)
a(i) = Trim(a(i))
If a(i) <> "" Then

xlBook.Sheets("sheet1").Range(Chr(Asc("A") + j) & k) = "'" & a(i)
j = j + 1
If j = 5 Then j = 0
End If
Next
k = k + 1
Loop
Close #1
xlBook.Save
xlBook.Close 'å³éexcelå·¥ä½ç°¿
Set xlApp = Nothing 'éæ¾excelç¨åº
End Subè¿½é®

è¿ä¸ªå¹¶æ²¡æå®ç°å¯¹è¯æ¡éåæ°æ®å

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f7fmvsmf2qv8pq2q2s7.html

其他看法

无其他回答

如何用VB6.0实现用对话框选择excel文件,并调用其中数据存成数组后进行...
Dim i As Integer '运行前请"工程-引用" "Microsoft Excel 12.0 Object Library" 打钩 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim j As Integer Private Sub Command1_Click()'xlApp.NewWorkbook.Add ("E:\\1.xls")Set xlApp = Creat...

VB6.0 调用EXCEL表
’用CommonDialog可以解决选定打开.xls文件问题然后就是读取进去哈哈保存代码如下 '添加command控件一个 CommonDialog，MSFlexGrid控件一个 Private Sub Command1_Click() On Error Resume Next Dim fileadd As String CommonDialog1.ShowOpen CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择...

VB6.0 如何将TXT 数据存入数组 TXT文件有一些仿真数据,如下:
将文本内容复制，到EXCEL里粘贴，数据菜单分列，选项：空格，连续分隔符视为单个处理。这样就是你要的最终结果。--- VB编程思路：1，将文本内容读取STR变量，行以回车符分隔。2，把两个空隔替换成一个，replace(str," "," "）循环直到没双空格 3，数组strA=split(str,vbcr)这样得到行数据strA(i...

vb6.0如何操作excel
程序里我改了一点就是打开excel文件后直接调出打印设置窗口，你自己选择打印机打印下面代码已经改成自动保存了 Private Sub Command1_Click()p = "c:\\book1.xls" '这里改你文件的路径 Set objexcel = CreateObject("Excel.Application") '创建excel工程 Set xlBook = objexcel.Workbooks.Open(...

VB6.0操作EXCEL中的数据?
'以下演示了用 VB 打开excel，Dim ExlApp As Object Dim ExlBook As Object Dim ExlSheet As Object Set ExlApp = CreateObject("Excel.Application") '创建Excel的应用程序实例 Set ExlBook = ExlApp.Workbooks.Add '创建Excel的工作簿 Set ExlSheet = ExlBook.Worksheets(1) '创建Excel的一张表...

VB6.0读取excel数据存储到access中,在线等!~~~
excel_app.Workbooks.Open FileName:=CommonDialog1.FileName '判断EXCEL文档是的版本是否在8以上，是否是单表版本 If Val(excel_app.Application.Version) >= 8 Then Set excel_sheet = excel_app.ActiveSheet Else Set excel_sheet = excel_app End If '将EXCEL记录头导入ACESS数据库 row = 6'...

VB6.0怎么把记事本里面的数据导入到EXCEL中并且一个单元格装一个...
把记事本中的数据全选，复制，粘贴到word 在word中，选择替换，(注意，如果你在记事本中的分隔符是不规则的空格的话，先在这里把多个空格替换成一个空格），把空格替换成【^t】（不包括【】），然后全选，粘贴到Excel，这样就OK了！当然如果数字间是其他的分隔符的话，把空格换成相应的分隔符就行了...

VB6.0程序调用Excel后,Excel进程无法关闭
Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象 Set ExcelBook = ExcelApp.Workbooks.Open("y:\\计划1.xls")Set ExcelSheet = ExcelBook.Worksheets("计划1")'===打开远程表格（计划1）结束=== '===保存并关闭远程表格（计划1）开始=== ExcelBook.Save ExcelBook.Close Set ...

VB6.0 excel 我想通过VB6.0编写一个可执行exe文件,
如果可以编辑vb写的程序，可以向注册表或者某个文件写入一个特定返回值，来供c#程序调用；如果不可以编辑vb写的程序，就要看看vb程序具体干了什么；总之运行前和运行后是不一样的；

vb6.0文件操作
你的代码是实现对excel操作的excel.application dbf 是数据库文件.思想:需要先转换 dbf为 excel文件将.dbf文件导入Excel表中可以用数据导入功能。做法：在Excel中选择菜单中的“数据”>“导入外部数据”>“导入数据”，然后在“文件类型”中选择“*.dbf”，点“打开”，相应的数据就进入Excel了。如果按...

相似回答

大家正在搜