Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access初・中級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトルファイル選択時の初期ファイルの場所を変更
記事No16685
投稿日: 2011/05/13(Fri) 10:37
投稿者VBAまったく初心者
OS:Win xp sp2
Access Version:access2000(9.0)

お世話になっています。
当方VBAに関して初心者なのですが(今回初めて作りました)、今まで固定のCSVファイルで運用していたので、マクロのテキスト変換機能でテーブルにインポートしていたのですが、今回運用が変わりファイルを選択したいという要求に変わりました。 今までモジュールを作成した事が無かったのでネットで調べ下記の様な記述で何とか【ファイル選択しインポート】という処理はとりあえず動きました。(見る人が見ればおかしい記述もあるとは思いますが) が、最初に表示されるファイルの場所を指定の場所に変更(現在はマイドキュメントになっています)したい(C:\B2SE\OUTPUT\に変更)のですがなかなかうまくいきません。
どなたかご教授して頂ければありがたいのですが、宜しくお願い致します。

'------------------------------------------------------------
' ヤマト運賃データ取込処理
'
'------------------------------------------------------------
Function ヤマト運賃データ取込処理()
On Error GoTo ヤマト運賃データ取込処理_Err

Dim objcsv As New Excel.Application
Dim vargetfile As Variant


'ChDir "C:\B2SE\OUTPUT\"

'Dim myInitPath As String

'myInitPath = "C:\B2SE\OUTPUT" '最初に表示したいフォルダ
'ChDrive myInitPath 'ドライブ変更してから
'ChDir myInitPath 'フォルダを変更する
'ChDrive "C"
'ChDir "C:\B2SE\OUTPUT"

vargetfile = objcsv.GetOpenFilename("csv(*.csv),*.csv", , "csvファイル選択")
If vargetfile = False Then
MsgBox "キャンセルを押された為、取込処理を中止しました。", vbInformation, "取込処理中止!"
Else
' yamatoinport クエリ(全件削除)
DoCmd.OpenQuery "yamatoinport クエリ(全件削除)", acNormal, acEdit
' yamatoinport インポート定義
'DoCmd.TransferText acImportDelim, "yamatoinport インポート定義", "yamatoinport", "C:\B2SE\OUTPUT\y.csv", False, ""
DoCmd.TransferText acImportDelim, "yamatoinport インポート定義", "yamatoinport", vargetfile, False, ""
' ヤマト運賃 クエリ(yamatoinport追加)
DoCmd.OpenQuery "ヤマト運賃 クエリ(yamatoinport追加)", acNormal, acEdit
' ヤマト運賃 クエリ(出荷日設定)
DoCmd.OpenQuery "ヤマト運賃 クエリ(出荷日設定)", acNormal, acEdit
' yamato合算 クエリ(全件削除)
DoCmd.OpenQuery "yamato合算 クエリ(全件削除)", acNormal, acEdit
' ヤマト運賃 クエリ(運賃合算してyamato合算へ出力)
DoCmd.OpenQuery "ヤマト運賃 クエリ(運賃合算してyamato合算へ出力)", acNormal, acEdit
' 以上で運賃データの取込が完了しました。
Beep
MsgBox "以上で運賃データの取込が完了しました。", vbInformation, "取込処理終了!"
Exit Function
End If
ヤマト運賃データ取込処理_Exit:
Exit Function

ヤマト運賃データ取込処理_Err:
MsgBox Error$
Resume ヤマト運賃データ取込処理_Exit

End Function

タイトルRe: ファイル選択時の初期ファイルの場所を変更
記事No16691
投稿日: 2011/05/14(Sat) 10:03
投稿者ABCコマンダー
>最初に表示されるファイルの場所を指定の場所に変更(現在はマイドキュメントになっています)したい >(C:\B2SE\OUTPUT\に変更)のですがなかなかうまくいきません。

FileDiaLogオブジェクトとかを使用してるの?上手くいかないソースは?
ダイヤログボックスの初期値のセットは
FileDiaLogオブジェクトならInitialFileNameプロパティでダイヤログボックスを開いた時の最初に参照するフォルダを設定でるはず・・・

タイトルRe^2: ファイル選択時の初期ファイルの場所を変更
記事No16692
投稿日: 2011/05/14(Sat) 10:51
投稿者Moko
> FileDiaLogオブジェクトならInitialFileNameプロパティでダイヤログボックスを開いた時の最初に参照するフォルダを設定でるはず・・・

FileDiaLog は 2002 からの機能。

2000 なら、こちらがお勧め。
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsGetFileName.html

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る