返回列表下一主題上一主題發帖

[發問] 有關sheet名稱的問題

imzues

中學生 Rank: 2

帖子: 72
主題: 24
精華: 0
積分: 172
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-7-16
最後登錄: 2023-7-6

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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")
再來就試不出來了!!

樓主熱帖

imzues

中學生 Rank: 2

帖子: 72
主題: 24
精華: 0
積分: 172
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-7-16
最後登錄: 2023-7-6

2^#

發表於 2011-4-25 12:55 | 顯示全部帖子

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

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

TOP

imzues

中學生 Rank: 2

帖子: 72
主題: 24
精華: 0
積分: 172
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-7-16
最後登錄: 2023-7-6

3^#

發表於 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

TOP

imzues