2 ohada19950721 ohada19950721 于 2016.01.27 20:03 提问

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表

2个回答

caozhy
caozhy   Ds   Rxr 2016.01.27 21:07
已采纳

两个办法,简单的,这么写:
open "x:\path\1.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下,能看懂,有问题可以问。看不懂我觉得你干脆放弃。我也懒得多说,

enpterexpress
enpterexpress   Rxr 2016.01.27 20:13
Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!
其他相关推荐
VB把一个Excel中的部分数据Copy到另一个Excel表中
Sub CopyData()         Dim r1 As Range   Dim r2 As Range   Dim w As Workbook   ThisWorkbook.Activate   Set r1 = ThisWorkbook.Sheets(1).[a1]   Set r2 = ThisWorkbook.Sheets(1).[c1]     Set w =
vb批量将excel数据导入access以及批量将access数据库中的数据导入excel源代码
vb access数据库与excel数据互相导入的源代码,很经典的啊
vb 生成excel 并写入数据
<br />我用DataGrid2来存放查找出来的数据,想通过一个Command。单击时打开excel并将DataGrid2里面的数据写入excel中,但是excel中前面和后面有固定的内容,只是把数据写入中间部分。。。改怎么办,还有前面和后面的固定部分怎么处理。。。。<br />ps:顺便问一句:DataGrid2中在数量字段后面我想加个合计行,该咋办,   当然excel中也要合计行。。。。。<br />我vb刚开始接触,只是看了一点别人的程序自己试着做了个小程序,没有经过系统的学习,所以还请讲的详细点
vb连接access excel步骤 excel 导入access
第一步 新建vb工程 新建数据库   第二步 引入数据库环境: ms activiteX data  OBJECTS 2.8 LIBRARY ms excel 11.0 引入显示控件: 常用的有三个 datagrid:可以直接从表格修改数据库数据 但是不能设置每行的颜色  推荐2st flexgrid:可以显示数据库数据 只读的 hflexgrid:支持ado 可以设置每行显
VB把access数据库里的表导出成EXCEL表
新建一个窗体,窗体上就放一个Command1按钮操作:点一下Command1就导出完成了,在网上找了很久,结果在美国的一个代码论坛上找到的,国内难道都没有人这样写过吗?注意点:在D盘下要存在一个数据库名为data.mdb  ,这个数据库里要包含一个叫pop的表,至于表里边什么内容,就随便填一点就可以了。 下面是代码了: Private Sub Command1_Cl
VB读取excel表中的数据
<br />在“工程”的“引用”中选择“microsoft excel 11.0”,"microsoft excel 11.0"看版本而定<br />Dim xlApp As New Excel.Application<br />Dim xlBook As New Excel.Workbook<br />Dim xlSheet As New Excel.Worksheet<br />Private Sub Command1_Click()<br />On Error Resume Next<br />  
VB 实现将Access数据库转换到Excel文件
VB 实现将Access数据库转换到Excel文件,VB转换成excel
VB6操作EXCEL导入数据库
VB6操作EXCEL导入导出数据库
vB编程VB源码 VB读取EXCEL工作薄某个表中数据 ADODB.Recordset
Private Sub Form_Load() Dim RS As ADODB.Recordset Set RS = GetExcelRs(App.Path & "\book1.xls") MsgBox RS.RecordCount MsgBox RS(0) RS(0)
vb读取Excel数据+获得Excel工作表名
用简单的例子说明vb连接Excel数据表 获得数据表的工作表名和查询其中的数据