ok100fen 发表于 2010-10-24 20:07:57

vb操作excel

我想先做一个form ，在form上有一个Text1，和一个Command1按钮 ，可以在text1中输入任意整数n ，然后计算出：
10%*n
15%*n
20%*n
25%*n
30%*n

最后，在（2，4）单元格里输入1个A.
      在（3，4）单元格里输入1个A
      在（4，4）单元格里输入1个A
      在（5，4）单元格里输入1个A
      在（6，4）单元格里输入1个A
      在（7，4）单元格里输入1个A
      在（8，4）单元格里输入1个A
      ...........................
一直输入10%*n个。
      在（9，4）单元格里输入1个B
      在（10，4）单元格里输入1个B
      在（11，4）单元格里输入1个B
      在（12，4）单元格里输入1个B
      在（13，4）单元格里输入1个B
      在（14，4）单元格里输入1个B
      在（15，4）单元格里输入1个B
.......................................
一直输入15%*n个
      在（16，4）单元格里输入1个C
      在（17，4）单元格里输入1个C
      在（18，4）单元格里输入1个C
      在（19，4）单元格里输入1个C
      在（20，4）单元格里输入1个C
      在（21，4）单元格里输入1个C
      在（22，4）单元格里输入1个C
.......................................
一直输入20%*n个
      
      在（23，4）单元格里输入1个D
      在（24，4）单元格里输入1个D
      在（25，4）单元格里输入1个D
      在（26，4）单元格里输入1个D
      在（27，4）单元格里输入1个D
      在（28，4）单元格里输入1个D
      ...........................
一直输入25%*n个。
以此类推，
只要我按下command1按钮，在相应的单元格上就输入了ABCD...
其中10%*n可以用四舍五入来取到整数
希望大家给我思路，

马大哈 发表于 2010-10-25 12:58:34

    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet

    Set xlApp = New Excel.Application       '创建EXCEL对象
    Set xlBook = xlApp.Workbooks.Open("xxxx.xls")          '打开EXCEL工作簿文件
    xlApp.Visible = False
    Set xlSheet = xlBook.Worksheets(1)                  '设置活动工作表

    xlSheet.Cells(2, 7)="kjhkjhkj"

    xlBook.Close False
    xlApp.Quit

    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing这些是基本操作方法.

使用Cells集合能定位到所需要的格子.

ok100fen 发表于 2010-10-26 16:37:22

弄好了


3q

upring 发表于 2015-5-12 08:26:19

还是马总有学识

Hades 发表于 2017-12-13 19:58:43

这个我也经过这个坑，我的办法是用宏录制，黏贴到VB上， 然后一点一点的调试。


菜鸟的方法
页: [1]
查看完整版本: vb操作excel