vb6-vb 把数据输入到excel表中

问题描述

vb 把数据输入到excel表中

For m = 68 To 80 Step 3
For n = 12.6 To 16.2 Step 1.2
For o = 3.6 To 4.4 Step 0.2
For p = 210 To 275 Step 30
If m <> n And m <> o And m <> p And n <> o And n <> p Then
Print m; n; o; p
End If
Next
Next
Next
Next
怎么把print给换成是输入到excel表

解决方案

两个办法,简单的,这么写:
open "x:path1.csv" for output as #1
For m = 68 To 80 Step 3
For n = 12.6 To 16.2 Step 1.2
For o = 3.6 To 4.4 Step 0.2
For p = 210 To 275 Step 30
If m <> n And m <> o And m <> p And n <> o And n <> p Then
Print #1 m &","& n & "," o & "," p
End If
Next
Next
Next
Next
close #1
虽然这个办法产生的不是真正的excel文件,但是csv文件也可以双击直接在excel打开。

另一个办法是引用Excel的COM组件,用VBA去操作。难度略大,你google下,能看懂,有问题可以问。看不懂我觉得你干脆放弃。我也懒得多说,

解决方案二:

VB中的数据输出到EXCEL中

时间: 2016-06-20
Tags: excel, vb6

vb6-vb 把数据输入到excel表中的相关文章

单元格-vb.net 读取多个excel表中的数据填到新建的excel表中,

问题描述 vb.net 读取多个excel表中的数据填到新建的excel表中, Option Explicit OnModule Module1 Public Function MergeXlsFile(ByVal strPath As String Optional ByVal SheetCount As Byte = 1) As Boolean Dim i As Integer Dim strSrcFile As String Dim nRows As Long nCols As Long

对Excel表中数据一对多查询的方法

  对Excel表中数据一对多查询的方法          举个例子,如下图,左侧A1:C10是一份学员名单表,现在需要根据F1单元格的"EH图班"这个指定的条件,在F2:F10单元格区域中,提取该班级全部学员名单. 今天说一个函数查询方面的方法:Index+Small. F2单元格输入以下数组公式,按住Ctrl+Shift键不放,再按回车键,然后向下填充: =INDEX(B:B,SMALL(IF(A$1:A$10=F$1,ROW($1:$10),4^8),ROW(A1))),&quo

填充Excel表中上方非空单元格数据的方法

填充Excel表中上方非空单元格数据的方法   1.选择范围 将需要填写的空单元格以及其上方单元格一起选中 2.定位空值 同时按住ctrl+G,跳出"定位"对话框,点击"定位条件" 在弹出的"定位条件"对话款,选中"空值',并确定,这样,空白单元格全被选中 3.输入公式 输入"="和第一个空单元格上方单元格的地址(A2),如下图,输入完成后,同时按住ctrl+enter,即可

教你如何把EXCEL表中的数据统一上调20%

早上刚来到办公室,服务部经理郭飞就找到我,说昨天打印的工时需要重新调整,每个单价都上调20%,因为车型种类比较多,打印需要200多页,比较浪费墨.我就问老板知道么,他说这个上调工时是经过老板同意的,既然老板同意,我也就没有任何理由不再重新打印调整好的工时. 由于我的电脑还是2000年买的,无论运行速度等其他方面都是比较慢,就用市场部刚买来的电脑,这样工作效率也许会高点,在设置表格的过程中,市场部的大琳非要问我这个上调20%是如何设置的,她要求把这个设置过程写下来,以便以后忘记了好有个查询的资料应

excel表中输入数字很慢的解决方法

  excel表中输入数字很慢(输完数字,要等很久),字母.汉字都没问题. 在excel表中的某一个单元格里输入数字,要等很久,excel才有反应,输入字母和汉字及其它字符正常. 原因不明,直接说解决方法: 首选,全选这个有问题的excel表,然后选择复制.接着现新建一个excel表,右击A1单元格,然后选择"选择性粘贴"一定要选择"选择性粘贴"这一步很重要.接着在弹出的菜单里,选择"边框除外",然后按确定.之后,再重新添加边框即可. 如果,选择

代码-C#程序修改Excel表中某列的数据

问题描述 C#程序修改Excel表中某列的数据 本人是编程草鸟,求各位大神欧巴给出完整代码,nopi什么的各种不会,搜索度娘大半天一点也看不懂.求大神谢谢! 解决方案 复制粘贴会么?http://zhidao.baidu.com/link?url=dTzKUW9sTVedc0JVDUBITHmDezaPJ6XBUQPSYjFNQX4ilqsu-yEuROWB8Deq4lvIc_2MUWloky2v6eIPldIZzc_BfHazRxSvxiXFIeNf3FS 解决方案二: 下载npoi的库,添加

python 怎么实现一个excel表中,多个sheet中数据相加?

问题描述 python 怎么实现一个excel表中,多个sheet中数据相加? 把多个sheet中对应单元格中的数据相加,求大神帮忙,谢谢 我有一个excel,其中有多个单元格,现在需要把所有sheet中对应单元格的数据相加. 解决方案 你读取每个字段的数据,然后加法不就可以了. 或者直接yexcel自带的sum 解决方案二: import xlrd def readExcel(excelFile): sum = 0 book = xlrd.open_workbook(excelFile) fo

jsp-java 中JSP 实现把excel表中数据导入到mysql数据库中的表中的具体实现方法

问题描述 java 中JSP 实现把excel表中数据导入到mysql数据库中的表中的具体实现方法 java 中JSP 实现把excel表中数据导入到mysql数据库中的表中的具体实现方法 解决方案 参考:http://blog.csdn.net/casilin/article/details/5750773 解决方案二: 楼主幸苦了!!谢谢分享!!! 解决方案三: jsp导excel到mysql数据库 http://wenku.it168.com/d_000468232.shtml

在 SQL Server 中查询EXCEL 表中的数据遇到的各种问题

原文:在 SQL Server 中查询EXCEL 表中的数据遇到的各种问题 SELECT * FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="D:\KK.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$] 问题:消息 15281,级别 16,状态 1,第 1 行 SQL Server 阻止了对组件 'Ad Hoc Dis