首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

EXCEL工作簿名与表名是变量的有关问题

2012-02-23 
EXCEL工作簿名与表名是变量的问题用一个循环判断一系列工作簿,一系列表是否存在的语句:VB codedim shtname

EXCEL工作簿名与表名是变量的问题
用一个循环判断一系列工作簿,一系列表是否存在的语句:

VB code
dim shtname as worksheetset shtname = xlsapp.Workbooks(Kitting.WO.text & "-" & Sdept(n) & ".xls").sheets(ModSeled(t))    '这段代码有误   'e.g.: Kitting.WO.text & "-" & Sdept(n) & ".xls" = "123456-TE50.xls"   ModSeled(t) = "LPT 50X"If IsNull(shtname)=False then     '这里无法判断...end if

如上面所示代码出现问题,求教各位帮忙解决。

[解决办法]
VB code
On Error Resume NextDim shtname As WorksheetSet shtname = NothingSet shtname = xlsapp.Workbooks(Kitting.WO.Text & "-" & Sdept(n) & ".xls").Sheets(ModSeled(t))'这段代码有误'e.g.: Kitting.WO.text & "-" & Sdept(n) & ".xls" = "123456-TE50.xls"   ModSeled(t) = "LPT 50X"If shtname Is Nothing Then  '这里无法判断  MsgBox ("Sheets:" & ModSeled(t) & "不存在")End If 

热点排行