Page 1 of 1
รบกวนดู Macro Code เกี่ยวกับการสร้างโฟลเดอร์ครับ
Posted: Thu Mar 22, 2012 11:26 pm
by kraikrai
สวัสดีครับ อยากจะขอความช่วยเหลือเกี่ยวกับการสร้างโฟลเดอร์ ผมสร้างโฟลเดอร์ขึ้นมาได้แล้ว
แต่ถ้าเกิดสร้าง Folder ขึ้นมาซ้ำ ไม่ทราบต้องเขียน Code อย่างไร ให้สามารถตรวจสอบก่อน
ว่ามีโฟลเดอร์ซ้ำ ให้มี Msg หรือ Error แจ้งครับ ขอบคุณครับ
Sub MKDIRectory()
A = Range("A1").Value
b = Range("B1").Value
MkDir A & "\Round" & b
End Sub
Re: รบกวนดู Macro Code เกี่ยวกับการสร้างโฟลเดอร์ครับ
Posted: Thu Mar 22, 2012 11:41 pm
by tupthai
Public Sub MkDir()
str = "d:\data"
If Dir(str, vbDirectory) ="" Then
'MkDir str
Else
'MsgBox "No"
End If
End Sub
Re: รบกวนดู Macro Code เกี่ยวกับการสร้างโฟลเดอร์ครับ
Posted: Thu Mar 22, 2012 11:54 pm
by kraikrai
tupthai wrote:Public Sub MkDir()
str = "d:\data"
If Dir(str, vbDirectory) ="" Then
'MkDir str
Else
'MsgBox "No"
End If
End Sub
ขอบคุณสำหรับคำตอบครับ แต่ว่าผมลอง Run Code ดูแล้ว
ก็ยังใช้ไม่ได้ครับ Code ขึ้น Error ไม่รู้ว่าต้องแก้ไขตรงไหนครับ
Re: รบกวนดู Macro Code เกี่ยวกับการสร้างโฟลเดอร์ครับ
Posted: Thu Mar 22, 2012 11:57 pm
by tupthai
ขอดู code ที่ทำหน่อย หรือ แนบ file ก็ได้ ครับ
Re: รบกวนดู Macro Code เกี่ยวกับการสร้างโฟลเดอร์ครับ
Posted: Fri Mar 23, 2012 12:07 am
by kraikrai
tupthai wrote:ขอดู code ที่ทำหน่อย หรือ แนบ file ก็ได้ ครับ
ผมส่งไฟล์แนบมาแล้วนะครับ ขอบคุณครับ
Re: รบกวนดู Macro Code เกี่ยวกับการสร้างโฟลเดอร์ครับ
Posted: Fri Mar 23, 2012 12:20 am
by tupthai
Public Sub MkDir()
Dim Str As String
Str = "d:\data1"
If Dir(Str, vbDirectory) = "" Then
'MkDir str
MsgBox "Yes"
Else
MsgBox "No"
End If
End Sub
เพิ่มการประกาศตัวแปร
Re: รบกวนดู Macro Code เกี่ยวกับการสร้างโฟลเดอร์ครับ
Posted: Fri Mar 23, 2012 12:24 am
by kraikrai
tupthai wrote:Public Sub MkDir()
Dim Str As String
Str = "d:\data1"
If Dir(Str, vbDirectory) = "" Then
'MkDir str
MsgBox "Yes"
Else
MsgBox "No"
End If
End Sub
เพิ่มการประกาศตัวแปร
ขอบคุณมากๆ ครับ
Re: รบกวนดู Macro Code เกี่ยวกับการสร้างโฟลเดอร์ครับ
Posted: Fri Mar 23, 2012 12:27 am
by kraikrai
tupthai wrote:Public Sub MkDir()
Dim Str As String
Str = "d:\data1"
If Dir(Str, vbDirectory) = "" Then
'MkDir str
MsgBox "Yes"
Else
MsgBox "No"
End If
End Sub
เพิ่มการประกาศตัวแปร
ขอบคุณมากๆ ครับ