Excel VBA質問箱 IV

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

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


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

55059 / 76732

←次へ　｜　前へ→


	【26453】Re:セル

Hirofumi - 05/7/5(火) 21:32 -


	引用なし

	パスワード

こんなもで、善いかも？

Option Explicit

Public Sub Sample()

　　Dim lngRow As Long
　　Dim vntFileNames As Variant

　　lngRow = 4

　　vntFileNames _
　　　　　　= Application.GetOpenFilename("Microsoft Excelブック,*.xls", _
　　　　　　　　　　, , , True)
　　If VarType(vntFileNames) = vbBoolean Then
　　　　MsgBox "キャンセルされました。", vbInformation
　　Else
　　　　Cells(lngRow, 5).Resize(UBound(vntFileNames)).Value _
　　　　　　　　= Application.Transpose(vntFileNames)
　　End If

End Sub

1 hits

▼

【26420】セル ゴリ 05/7/5(火) 12:01