Access VBA質問箱 IV

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

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


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

5216 / 9994

←次へ　｜　前へ→


	【8005】小僧さん。よろしくお願いします。

ユミちゃん - 06/6/17(土) 17:34 -


	引用なし

	パスワード

小僧さん。
いつもお世話になります。
ACCESSからダイアログを表示してEXCELをインポートしたいのですが
過去ログで下記の内容を参考にさせていただきました。
'こちらでTransferSpreadsheetメソッドを発行のところで
DoCmd.TransferSpreadsheet acinport, acSpreadsheetTypeExcel9, "集計表", "c:\ライン集計表.xls", True, "集計"
としてしまうとダイアログで選択した意味がなくなってしまいます。
"c:\ライン集計表.xls"　をダイアログで選択した値を反映させる方法が
どうしても判りません。
よろしくお願いします。

Sub ダイアログを呼び出す()
'要参照設定 Micosoft Office x.x Object Library 10.0以降
Dim FName As Variant

　　Const IFName = "C:\"　　'デフォルトのパスを設定

　　With Application.FileDialog(msoFileDialogFilePicker)
　　　　.AllowMultiSelect = True
　　　　.Title = "インポートするファイルを選択(複数選択可)"
　　　　.Filters.Add "Excel ファイル", "*.xls"
　　　　.InitialFileName = IFName
　　　　
　　　　If .Show = -1 Then
　　　　　　For Each FName In .SelectedItems
　　　　　　　　Call インポート(FName)
　　　　　　Next
　　　　End If
　　End With
End Sub

Function インポート(xName As Variant)
'こちらでTransferSpreadsheetメソッドを発行
　　MsgBox xName

End Function

419 hits

▼

【8005】小僧さん。よろしくお願いします。 ユミちゃん 06/6/17(土) 17:34

≪