Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49468 / 76732

←次へ　｜　前へ→


	【32174】Re:ファイル名を取得して,ある列に代入するには

にしもり - 05/12/8(木) 9:58 -


	引用なし

	パスワード

▼にしもりさん：
自己レスです。
ここまで自力でできました。
Sub TEST()

Dim SH1 As Worksheet
Dim MyRow1 As Long
Dim MyVal1 As String

Workbooks.Open Filename:="C:\User\京都.xls"
Workbooks("京都.xls").Activate

With ActiveWorkbook
　 MyVal1 = .Name
End With

Set SH1 = Workbooks("京都.xls").Worksheets("Sheet1")
MyRow1 = SH1.Range("A65536").End(xlUp).Row

For i = 2 To MyRow1
　　SH1.Cells(i, 82) = MyVal1
Next i

End Sub
ですが結果は「京都」でなく「京都.xls」になってしまいます。
頭は２桁と決まっています。
左２桁にするときもっともよい関数はなんですか。

0 hits

▼

【32172】ファイル名を取得して,ある列に代入するには にしもり 05/12/8(木) 9:13