ohada19950721 2016-01-27 12:03 采纳率: 100%
浏览 2106
已采纳

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条回答 默认 最新

  • threenewbee 2016-01-27 13: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下,能看懂,有问题可以问。看不懂我觉得你干脆放弃。我也懒得多说,

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

悬赏问题

  • ¥15 怎么制作一个人脸识别门禁系统
  • ¥20 大华dss监控平台网络关闭登不进去
  • ¥15 请使用蚁群算法解决下列问题,并给出我完整的代码
  • ¥20 关于php录入完成后,批量更新数据库
  • ¥15 请教往复密封润滑问题
  • ¥15 cocos creator发布ios包
  • ¥15 comsol压电材料数据
  • ¥35 用python实现除法算法中goldschmidt算法
  • ¥15 汇编代码转换成C代码
  • ¥15 除法算法中的归一化具体是怎么变的?