2010年 05月 14日
「フォルダ作成」のボタンをクリックすると、 指定したフォルダにセル値の値をフォルダー名としてフォルダが作成さrます。 Sub セル値からフォルダー名を取得して作成() Dim mydir As String Dim i As Integer For i = 1 To Range("A" & Rows.Count).End(xlUp).Row mydir = "C:\Users\user\Desktop\test\" & Cells(i, 1).Value If Dir(mydir, vbDirectory) = vbNullString Then MkDir mydir Next i MsgBox "完了しました" End Sub
by hama_y
| 2010-05-14 07:18
| Excel
|▲TOPへ
|
サイト内検索
記事ランキング
最新の記事
検索
外部リンク
連絡先
| |||||||||||||||||||||||
ファン申請 |
||