返回列表 上一主題 發帖

sheet name 問題

回復 10# basarasy
  1. Dim sh As Worksheet
  2. With Workbooks.Open(ThisWorkbook.Path & "\book2.xls")
  3. For Each sh In .Sheets
  4.    If sh.CodeName = "Sheet1" Then MyName = sh.Name
  5. Next
  6. End With
複製代碼
學海無涯_不恥下問

TOP

本帖最後由 Hsieh 於 2010-7-28 17:45 編輯

回復 16# basarasy


    你的代碼能運行嗎?
先把基本語法搞懂
http://forum.twbts.com/viewthread.php?tid=33&extra=page%3D1
學海無涯_不恥下問

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題