RSS

การสร้าง Folder ใหม่โดยใช้ VBA

31 Jan

กรณีที่เราต้องส่งไฟล์ให้กับผู้ใช้งาน โดยกำหนดไว้ล่วงหน้าว่าจะต้องให้ผู้ใช้งาน Save File ไว้ใน Folder ที่กำหนดไว้ใน Code VBA เท่านั้น หากยังไม่มี Folder ดังกล่าวให้สร้าง Folder ขึ้นมาก่อนแล้วค่อย Save File

โดยสมมุติว่าให้ Save File ชื่อ Test.xls ไว้ที่ D:\Program\Master\File สามารถใช้ VBA ตามด้านล่างครับ

Option Explicit 
Function FolderExist(Path As String) As Boolean
On Error Resume Next
If Not Dir(Path, vbDirectory) = vbNullString Then
FolderExist = True
End If
On Error GoTo 0
End Function
Sub TestFolder()
If FolderExist("D:\Program\Master\File") Then
ChDir "D:\Program\Master\File"
ThisWorkbook.SaveAs ("Test.xls") 'Save file name as "Test"
Else
On Error Resume Next
MkDir "D:\Program\"
MkDir "D:\Program\Master"
MkDir "D:\Program\Master\File"
ChDir "D:\Program\Master\File"
ThisWorkbook.SaveAs ("Test.xls") 'Save file name as "Test"
End If
End Sub

การเรียกใช้งานจะเรียก TestFolder ซึ่งจาก Code ด้านบนเป็นการสร้าง Folder หลักขึ้นมาก่อนแล้วค่อยสร้าง Folder ย่อย จากนั้นค่อย Save File ใน Folder ย่อยนั้น

 
1 Comment

Posted by on 31/01/2011 in Folder

 

One response to “การสร้าง Folder ใหม่โดยใช้ VBA

  1. Bank9597

    08/07/2012 at 10:45 am

    โอ๊ว…ทำได้จริงๆด้วย ขอบคุณมากครับ

     

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

 
%d bloggers like this: