VBA在1个excel工程实例中的问题
我主要是进行VC编程，但为满足项目的要求，我独立编写了一下面的程序，其中有一些问题不知道怎么处理（标注在程序中）：1.怎样查找文件，并判断是否找到 2.一个变量不为空能否用<>empty表示，类似于vc中的null 3.程序调试时弹出消息框“sub或function属性无效”是怎么回事 4.本人在程序编写过程中用的都是vc编程的思维和习惯，那些地方不符合vb习惯请高手指点，谢谢！
'软件名称：层流冷却优化仿真数据整理系统
'完成单位：中南大学信息科学与工程学院
'指 导：申群太
'作 者：贾维卿
'版 本：1.0
'通信地址：湖南长沙岳麓区中南大学信息科学与工程学院民主楼110实验室
'邮政编码：410083
'完成时间：2006年3月1日
Sub ctc()
'本过程为主过程，实现整个工程任务的调度工作
'公共变量声明区：
Public inputpath '导入文件的路径
Public outputpath '导出文件的路径
Public coilno '钢卷号
Public smplfilename 'smplfilename文件名
'循环索引声明
Public i '循环变量
Public j '温度行循环索引
Public m 'fdt温度行循环索引
Public n 'ct温度行循环索引
'第一部分：当用户起用本宏时打开“路径对话框”，并按照路径打开文件
'调用对话框函数
Load UserForm 'userform对话框的目的就是为了和inputpath和outputpath赋路径值可以不用管
UserForm.Show
'打开需整理的文件，该路径由字符串inputpath给出
Workbooks.Open Filename:=inputpath
'第二部分：对ctcchk文件进行初步的查找整理工作
'调用子过程newfile()创建目标文件1.CTC,2.FDT,3.CT
newfile'子函数
'读取ctcchk文件coilno列的第i个元素(i=0,1,2...)
Windows(inputpath).Activate
'给索引值赋初值
i = 2
j = 2
m = 2
n = 2
'给钢卷号码赋初值
coilno = Range("A" + 2).Value
'如何表示变量coilno的值为空
While coilno <> Empty
'取得smpl表的文件名
smplfilename = "ctcsmpl_" + coilno + ".csv"
'怎样查找对应的smpl中间数据文件????并判断是否存在
'如果找到对应的smplfilename文件，那么打开该文件
Workbooks.Open Filename:=smplfilename
'调用fdtandct()子过程完成第i卷钢FDT和CT数据项的整理工作
fdtandct'子函数
'对应钢卷号所在的行复制到新表CTC中
ctcdeal'子函数
'更新钢卷号码索引
i = i + 1
'更新钢卷号码
coilno = rang("A" + i).Value
Wend
'整理新的ctc数据表，包括目录行、选定指定表名并关闭ctc数据表
ctcsave'子函数
'最后整理fdt和ct数据表，包括选定指定表名并关闭fdt和ct数据表
fdtandctsave'子函数
'第三部分：
'返回的主界面，弹出消息框："数据整理完毕，新的数据库保存在....，请关闭数据整理系统！"
MsgBox "数据整理完毕，新的数据库已保存在设置路径中，请关闭数据整理系统！"
End Sub
问题点数：20、回复次数：2Top
1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-04 02:04:36 得分 0
判断变量coilno的值是否为空：
While Trim(coilno) <> ""
......
判断一个文件是否存在：
If Dir(smplfilename)<>"" Then MsgBox "文件存在！"
Top
2 楼jiaweiqing（贾维卿）回复于 2006-03-04 10:41:00 得分 0
非常感谢faysky2()师傅的指点！Top
