Show newer

というかRelaxToolsってやつ導入したらできました本当にありがとうございました

いや流石に連番のやつとセル参照のやつを同時に並べたりはしてないですけど…

Sub フォルダ作成()
  Dim i As Long
  For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    MkDir ThisWorkbook.Path & "\" & Cells(i, 1)
  Next i
End Sub
だけで?

いつの記事だこれ・・・ 日付がない

えーじゃあどうしようもないのかこれ

とりあえず有効にして試してみよう…なんか違う気もするけど

3.5のhttpアクティブ化と非HTTPアクティブ化にチェックが入ってない

あ、確かにチェック入ってない機能が

コピペでそのまま実行した時から76エラーなんですよね…
そして何故か数個は作成されてるっていう

コード 

Sub フォルダ作成()
  Dim i As Long
  For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    MkDir ThisWorkbook.Path & "\" & Cells(i, 1)
  Next i
End Sub
からの
Sub フォルダ作成()
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
MkDir "D:\articles" & Cells(i, 1)
Next i
End Sub

他人のコードのコピペからパスだけ弄った奴ですね

エラー76パスが見つかりません。

Show older
Vocalodon

ボーカロイド好きが集うMastodonインスタンス、通称「ボカロ丼(ボカロドン)」です。 ** This server is for "Vocaloid" lovers. If you are not, please select other server. **

image/svg+xml