vb操作excel

ok100fen

我想先做一个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可以用四舍五入来取到整数
希望大家给我思路，

马大哈

1.     Dim xlApp As Excel.Application
   
2.     Dim xlBook As Excel.Workbook
   
3.     Dim xlSheet As Excel.Worksheet
   
4. 
   
5.     Set xlApp = New Excel.Application       '创建EXCEL对象
   
6.     Set xlBook = xlApp.Workbooks.Open("xxxx.xls")          '打开EXCEL工作簿文件
   
7.     xlApp.Visible = False
   
8.     Set xlSheet = xlBook.Worksheets(1)                  '设置活动工作表
   
9. 
   
10.     xlSheet.Cells(2, 7)="kjhkjhkj"
    
11. 
    
12.     xlBook.Close False
    
13.     xlApp.Quit
    
14. 
    
15.     Set xlSheet = Nothing
    
16.     Set xlBook = Nothing
    
17.     Set xlApp = Nothing

复制代码

这些是基本操作方法.

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

ok100fen

弄好了


3q

upring

还是马总有学识

Hades

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


菜鸟的方法