2016. 10. 13. 14:56

filedialogObject 사용시 초기 폴더위치 지정하기

336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

엑셀 매크로에서 폴더 창을 띄울 때 원하는 창으로 들어가는 방법

폴더의 initialFileName을 정해주면 된다.

아래와 같음

 

Dim fd As FileDialog

Set fd = application.filedialog(msofiledialogfilepicker)

set fs = createobject("scripting.FileSystemObject")

 

Cells(3,1) = ""

with fd

.InitialFileName = "D:\temp\"

.AllowMultiSselect = true

If .show = 0 then

cells(3,1) = "작업을 취소하셨습니다."

cells(3,1).font.color = RGB(240,0,0)

cells(3,1).font.bold = true

else

.....

end if

end with

set fd = nothing

 

'MACRO > EXCEL-MACRO' 카테고리의 다른 글

엑셀 내에서 시트 함수 사용 하기  (0) 2016.10.14
엑셀의 열이나 행 추가 삭제 시  (0) 2016.10.14
엑셀 시트의 이미지 관련 소소한 팁  (0) 2016.10.11
macro 소소한 팁  (0) 2016.10.11
행 삽입하기  (0) 2016.10.11