[求助]求一个excel操作例程

熙熙

我有三个编辑框
一个操作按钮
我想实现这一一个功能
单击按钮
会把编辑框的内容写到excel中，点击一次会插入一次（不替换前面的输入），若判断三个信息均重复，则提示不输入。
下次使用程序，会继续会在上次输入的表格后面写入，不会打开新的工作簿。
查了不少教程，还是没搞定，请求大侠帮忙
先感谢

小磊

COM对象零基础学习：7、excel对象的融会贯通
http://www.3600gz.cn/thread-103768-1-1.html

熙熙

小磊 发表于 2012-6-10 12:02
COM对象零基础学习：7、excel对象的融会贯通
http://www.3600gz.cn/thread-103768-1-1.html

感谢小磊老师，这个教程我学了，但是无法实现我说的功能呵  
继续求例程{:soso_e183:}

艾鱼

1. .版本 2
   
2. .支持库 edroptarget
   
3. 
   
4. .程序集 窗口程序集_窗口1
   
5. .程序集变量 A, EXCEL类
   
6. 
   
7. .子程序 _窗口1_创建完毕
   
8. 
   
9. .如果真 (拖放对象1.注册拖放控件 (窗口1.取窗口句柄 ()) ＝ 假)
   
10.     结束 ()
    
11. .如果真结束
    
12. .如果真 (文件是否存在 (“C:\Users\Administrator\Desktop\123.xls”) ≠ 真)
    
13.     写到文件 (“C:\Users\Administrator\Desktop\123.xls”, #图片1)
    
14. .如果真结束
    
15. A.创建 ()
    
16. 
    
17. .子程序 _拖放对象1_得到文件
    
18. .参数 接收到的文件路径, 文本型
    
19. .局部变量 d, 文本型
    
20. .局部变量 i, 整数型
    
21. 
    
22. 
    
23. d ＝ 文件_取文件名 (接收到的文件路径)
    
24. d ＝ 取文本左边 (d, 2)
    
25. .如果 (d ＝ “【”)
    
26.     d ＝ 文本_取出中间文本 (文件_取文件名 (接收到的文件路径), “【”, “】”)
    
27. .否则
    
28.     d ＝ 取文本中间 (文件_取文件名 (接收到的文件路径), 1, 8)
    
29.     .如果真 (寻找文本 (d, “已”, 1, 假) ≠ -1)
    
30.         d ＝ 文本_取左边 (d, “已”, 1, 假)
    
31.     .如果真结束
    
32. 
    
33. .如果结束
    
34. 编辑框1.内容 ＝ d
    
35. A.打开EXCEL (接收到的文件路径)
    
36. .计次循环首 (40, i)
    
37.     d ＝ A.读单元格文本 (“A” ＋ 到文本 (i))
    
38.     .如果真 (d ＝ “”)
    
39.         跳出循环 ()
    
40.     .如果真结束
    
41. 
    
42. .计次循环尾 ()
    
43. 编辑框2.内容 ＝ 到文本 (i － 3)
    
44. A.关闭工作薄 ()
    
45. A.打开EXCEL (“C:\Users\Administrator\Desktop\123.xls”)
    
46. .计次循环首 (500, i)
    
47.     d ＝ A.读单元格文本 (“A” ＋ 到文本 (i))
    
48.     .如果真 (d ＝ “”)
    
49.         跳出循环 ()
    
50.     .如果真结束
    
51. 
    
52. .计次循环尾 ()
    
53. A.置单元格文本 (“A” ＋ 到文本 (i), 到文本 (i － 1))
    
54. A.置单元格文本 (“B” ＋ 到文本 (i), 编辑框1.内容)
    
55. A.置单元格文本 (“C” ＋ 到文本 (i), 编辑框2.内容)
    
56. 编辑框3.内容 ＝ 到文本 (i － 1)
    
57. A.保存 ()
    
58. A.关闭工作薄 ()
    
59. 
    

复制代码

hezan0124

俺是新人 菜鸟 暂时好像用不到 但是 先顶啦