Snasui Excel Forum

Sub Pick()
PickLoop:
Application.Wait(Now + TimeValue("0:00:10"))
'สูตรต่างๆในโปรแกรม
GoTo PickLoop
End Sub

ตอนแรกจะทำ
Sub Pick()
PickLoop:
Application.Wait(Now + TimeValue("0:00:10"))
'สูตรต่างๆในโปรแกรม
If KeyCode = 13 Then
GoTo Outlet
Else
GoTo PickLoop
End If
Outlet:
End Sub

แต่พอกด Enter ...

ขอบคุณครับ แต่ผมไม่เข้าใจ
strD0 = Application.Text(Date, "\\bbbb\\")
strD1 = Application.Text(Date, "\\bbbb\\mm-bbbb\\")
คืออะไรครับ

โอเค ครับ ส่งไปให้แล้ว

แนบไฟล์ ไม่ไปครับ ตอนเลือกเสร็จแล้ว มันมีเครื่องหมายตกใจ ขึ้นตรงสถานะ ไฟล์ขนาด 16 kb ขึ้นมาว่า Error parsing server response.

ตามไฟล์เลยครับ พอดีอยากรู้ว่าสามารถให้มันเปลี่ยนเองตามเดือนเลยได้หรือไม่

ตอนนี้ติดปัญหาตรงที่ว่า ถ้ามีการเปลี่ยนเดือนหรือปี จะต้องทำการแก้ไขวันที่เองทั้ง4จุด
ไม่สามารถแนบไฟล์ได้ครับ Error parsing server response
Sub test()
Dim sPath As String
Sheets("FULL").Select
Sheets("FULL").Copy
On Error Resume Next
MkDir _
"\\192.168.56.240\Inventory\¨èÒÂ\Count ÊÔ¹¤éÒ»ÃШÓÇѹ\A ...

Run F8 นานมากครับ แต่เท่าที่ลอง Run จะเป็นตรงที่กำลังจะ Save ไฟล์อย่างเดียวครับ
Code ทั้งหมดประมาณนี้ครับ กำลังหาวิธีทำให้มันสั้นลงอยู่
Sub St()
'
' St Macro
'
' Keyboard Shortcut: Ctrl+Shift+S
'

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim ws4 As Worksheet
Dim ed1 As ...

ขอบคุณครับ ได้แล้วครับ แต่บ้างครั้งเวลา Run ตอนกำลังจะ Save บ้างครั้งจะมีหน้าต่าง File not found: 'C:\Users\???\AppData\Local\Temp\?????.tmp'" เด้งขึ้นมา

Sub testone()

ActiveSheet.Name = Range("A1").Value
On Error Resume Next
MkDir _
"C:\Sptnet32\2561\04-2018\" & Format(Date, "dd-mm-yyyy")
ChDir _
"C:\Sptnet32\2561\04-2018\" & Format(Date, "dd-mm-yyyy")

ActiveWorkbook.SaveAs Filename:="C:\Sptnet32\2561\04-2018\" & Format(Date, "dd-mm-yyyy ...

ตรงส่วน ActiveWorkbook.SaveAs Filename:= เราจะใส่เป็นอะไร ครับ

Sheets("FULL").Select
Sheets("FULL").Copy

On Error Resume Next
MkDir _
"\\192.168.56.240\Inventory\¨èÒÂ\Count ÊÔ¹¤éÒ»ÃШÓÇѹ\2561\04-2018\To Day"
ChDir _
"\\192.168.56.240\Inventory\¨èÒÂ\Count ÊÔ¹¤éÒ»ÃШÓÇѹ\2561\04-2018\To Day"
ActiveWorkbook.SaveAs Filename:= _
"\\192.168.56.240\Inventory ...

แนบแล้วมันขึ้นมาว่า
ผิดพลาด
ไฟล์มีขนาดใหญ่เกินไป
ครับ
[แก้ไข]

สอบถามน่อยครับ เราสามารถเขียนให้มันสามารถ Save ไฟล์โดยจะแยกเป็น Folderโดยให้ชื่อFolderเป็นวันที่ปัจจุบัน เลยได้ไหมครับ
ตอนนี้ใช้วิธี Run เสร็จ ก็ค่อยมาเปลี่ยนชื่อ Folder ที่หลังเอา
ปล.มือใหม่อยู่ครับ