Office TANAKA - ファイルの操作[名前を指定してブックを開く]
開くブックをユーザーに選択してもらう場合は、[ファイルを開く]ダイアログボックスを表示するといいでしょう。 Sub Sample1() Dim OpenFileName As String OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") Workbooks.Open OpenFileName End Sub [ファイルを開く]ダイアログボックスを表示するには、ApplicationオブジェクトのGetOpenFilenameメソッドを使います。GetOpenFilenameメソッドによる[ファイルを開く]ダイアログボックスは、ユーザーが選択したファイルのフルパスを返すだけで、自動的には開きません。GetOpenFilenameメソッドの書式は次の通りです。 GetOpenFilename Fil
Excel VBA を学ぶなら moug モーグ | 即効テクニック | コモンダイアログを使用する (GetOpenFileNameメソッド)
●概要● AccessではDevelopers Edition以外にはCommon Dialog Controlの開発ライセンスが付属していませんし、ExcelのGetOpenFileNameのようなAPIのラッパーも用意されていません。 しかし、逆に言えばExcelがインストールしてある環境ならば、Excelのメソッドを直接利用するという選択肢もありえます。 そこで、今回はExcelのGetOpenFileNameメソッドをAccessから使用する方法を説明します。 ●準備● 新規標準モジュールを作成し、以下のプロシージャを記述して下さい。 ●サンプルコード● Private Sub xlGetOpenFileName() Dim objXL As New Excel.Application Dim FileName() As Variant 'ファイル名 Dim i As Intege
[ファイルを開く] ダイアログを表示する方法
概要 今回は、Access 2000 以降で [ファイルを開く] ダイアログを表示する方法です。 .....あっ、今アナタ、こう思いましたね？ [ファイルを開く] ダイアログ？ FAQ だね、FAQ。 Access 2000 には [ファイルを開く] ダイアログを表示する機能は無いんだから。 アレでしょ、Developer 版に付属しているコモンダイアログ コントロールを使うか、Excel 経由で GetOpenFileName メソッドを呼び出すか、さもなくば Windows API を使うっていう。 あ、それとも Access 2002 から追加された新機能の FileDialog メソッドを使う方法かな？ でもそれだと Access 2000 では使えないから、やっぱり最初の 3 つの方法でしょ。 そんなの他のサイトにもたくさん載ってるし、毎週どこかの掲示板に上がってくる定番ネタじゃ
ダイアログボックスを表示する方法: 覚え書き
以下の関数を標準モジュールに貼り付ける。 Function GetFileName(OpenOrSaveFlg As Boolean) As String Dim returnValue As Integer Dim strFilePath As String WizHook.Key = 51488399 'WIZHOOKを有効化する returnValue = WizHook.GetFileName( _ 0, "", "", "", strFilePath, "", _ "テキストファイル (*.txt,*.csv,*.tab)|*.txt|*.csv|*.tab", _ 0, 0, 0, OpenOrSaveFlg _ ) WizHook.Key = 0 ' WizHook 無効化 GetFileName = strFilePath End Function 呼び出す側のプログラム例
VBScript ファイル参照/名前を付けて保存 ダイアログをつかう
AIS/MSDSplus/JAMA/JGPSSI等の環境負荷物質報告の実務と、それに関連したスクリプトの備忘録です。 Class clsGetFile '*********************************************************** ' 機能：ファイル参照ダイアログ表示処理 ' 引数：FileFilter, FilterIndex, Title, ButtonText, MultiSelect はExcel同様 ' InitDir 初期表示フォルダ ' 戻り値：ファイルフルパス キャンセル時はEmpty '注意事項：引数省略時は、""を入力 '*********************************************************** Function xlGetOpenFilename(FileFilter, Filter
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://www.openreference.org/articles/view/426
