台灣最大程式設計社群網站
線上人數
725
 
會員總數:245021
討論主題:188965
歡迎您免費加入會員
討論區列表 >> office VBA / WinOS >> 如何令VBA因應輸入按日期COPY到相對應WORKSHEET
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
如何令VBA因應輸入按日期COPY到相對應WORKSHEET
價值 : 10 QP  點閱數:69 回應數:2

樓主

GERRARD
門外漢
0 5
70 9
發送站內信



我已經完成了因應輸入按日期打開相對應檔案,
但如何令VBA因應輸入按日期COPY到相對應WORKSHEET?
例如 dd 是 01102019, 會將檔案 COPY 到 WORKSHEET "01", 求救

Sub Macro1()
'
' Macro1 Macro
'

' Dim Msg, fileValue
Msg = "Enter the data with the following format ddmmyyyy"
fileValue = InputBox(Msg)
If IsNumeric(fileValue) And Len(fileValue) = 8 Then

Workbooks.Open (ThisWorkbook.Path & "\" & fileValue & ".txt")
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1)), TrailingMinusNumbers:=True
Cells.Select
Selection.Copy

Windows("EF Guest Count.xlsm").Activate
Sheets("01").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Windows(fileValue & ".txt").Activate
ActiveWorkbook.Close SaveChanges:=True

End If
End Sub


搜尋相關Tags的文章: [ vba ] ,
本篇文章發表於2019-10-08 21:20
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

roar
檢舉此回應
試看看把 Windows("EF Guest Count.xlsm").Activate 換成以下可不可行。
Workbooks.Open("EF Guest Count.xlsm")
本篇文章回覆於2019-10-09 13:34
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

GERRARD
檢舉此回應
可能我問題唔清楚, 其實我會輸入日期 DDMMYYYY, WORKSHEET 亦有 01 - 31, 我如何令 EXCEL 知道 FILE 日期而自動 COPY 到相對 WORKSHEET, 例如 FILE 日期為 08102019, COPY 到 WORKSHEET 08?
本篇文章回覆於2019-10-11 15:10
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.