芯友网Xin1234.COM

 m = activateWorkbook.Name为毛这个会提示 要求对象 


见遇
 m = activateWorkbook.Name
为毛这个会提示 要求对象 
年流
你先激活一个文件
THISWORKBOOK.ACTIVE
见遇
已经激活了 

 m = ActiveWorkbook.Name
 
 a = Left(m, 8)
 
 MsgBox a

Range("B8").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    
    wbk.Activate
    
   
    Select Case a
    
     Case Is = " 商服损益表_当月"
     
     Sheets(1).Activate
    
    
     Case Is = "商服损益表_累计"
     
     Sheets(2).Activate
    
     Case Is = "商服资产负债表_"
     
     
     Sheets(3).Activate
     
     End Select
这个select case  不会自己判断条件 执行语句 
年流
你不是说上面要求对象吗
见遇
那个已经解决了 
相关问题
【可以用VBA把一个工作簿中的某个单元值等于另外一个工作簿任意单元格的值吗 我直接写代码 它提示不】
【VBA打扰了 想问下 一个对象设置visible=false和.hide意思有什么区别吗】
【vba就是vb的延伸反正只要知道表格的问题我们都能解决】
【CAD我选中的对象明明是闭合的 可是系统还是有这个提示？对象是这个我的版本是2016】
------分隔线----------------------------
赞助商链接
热点内容
赞助商链接
推荐内容