標題: [發問] 有關sheet名稱的問題 [打印本頁]

---

作者: imzues    時間: 2011-4-25 11:28     標題: 有關sheet名稱的問題

sheet的名字照每天的日氣例如：0424 0425 0426....以此類推
但我想要照當天日期抓到那張sheet，這部份該怎麼寫，我試了很久但試不出來!!!

Dim D As String
Dim M As String
Dim Rowno As Integer

D = Day(Now)
M = Month(Now)

If Len(D) = 1 Then
D = "0" + D
Else
D = D
End If

If Len(M) = 1 Then
M = "0" + M
Else
M = M
End If

With Workbooks.Open("a.xls")
再來就試不出來了!!

---

作者: Hsieh    時間: 2011-4-25 11:35

With Workbooks.Open("a.xls")  '開啟檔案
      with .sheets(format(date,"mmdd")) '開啟檔案內的日期工作表
      end with
end with

---

作者: imzues    時間: 2011-4-25 12:55

With Workbooks.Open("a.xls")  '開啟檔案
      with .sheets(format(date,"mmdd")) .Range("a:a") '開啟檔案內的日期工作表
      end with
end with

範圍一樣直接加在後面嗎???

---

作者: Hsieh    時間: 2011-4-25 14:13

回復 3# imzues


    With Workbooks.Open("a.xls")  '開啟檔案
      with .sheets(format(date,"mmdd"))'開啟檔案內的日期工作表
           with .Range("a:a") '工作表內的A欄

                end with
      end with
end with

這是物件階層的概念問題
WORKBOOKS內包含WORKSHEETS
WORKSHEETS內包含RANGE

---

作者: GBKEE    時間: 2011-4-25 14:16

回復 3# imzues
With Workbooks.Open("a.xls")  '開啟檔案
      .Sheets(Format(Date, "mmdd")).Activate '開啟檔案內的日期工作表成為使用中的工作表
End With

---

作者: imzues    時間: 2011-4-25 15:09

我要把東西Copy過去，但不知那寫錯了!!!

Sub JC()
'
Dim MySheet As Worksheet
Dim D As String
Dim M As String
Dim Rowno As Integer


D = Day(Now)
M = Month(Now)


If Len(D) = 1 Then
D = "0" + D
Else
D = D
End If

If Len(M) = 1 Then
M = "0" + M
Else
M = M
End If

    Set MySheet = ActiveSheet   
With Workbooks.Open("A.xls")

    With .Sheets(Format(Date, "mmdd"))     

           With .Range("R56:V75")            

        MySheet.Range("E18").End(xlDown).Offset(1, 0).Resize(, .Count) = .Value
        
    End With
                 
      End With

               .Close 0

         End With
'

End Sub

---

作者: Hsieh    時間: 2011-4-25 15:19

Resize(, .Count) 這會是多大範圍呢?
這可是只有一列100欄唷

---

作者: imzues    時間: 2011-4-25 15:23

20x20左右的範圍

---

作者: chin15    時間: 2011-4-25 15:49

本帖最後由 chin15 於 2011-4-25 15:50 編輯

With .Range("R56:V75")  
這時的  Resize(, .Count)
是 1列100欄 的範圍

---

作者: imzues    時間: 2011-4-25 16:09

了解了~感謝~我知道該怎麼改了!!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)