シート名を指定してワークシートオブジェクトを取得するサンプル Dim xlWorkBook As Excel.Workbook Dim xlSheets As Excel.Sheets Dim xlSheet As Excel.Worksheet Dim SheetName As String 'エクセルを開く xlWorkBook = xlApp.Workbooks.Open(”hoge.xls”…

レコードを追加する サンプルソース '===テーブル1削除クエリがあったとして====== '警告ダイアログをOFF DoCmd.SetWarnings False 'テーブル1削除クエリを実行する DoCmd.OpenQuery "テーブル1削除" '===テーブル1削除クエリがあったとして====== 'テーブル…

指定したフォルダ内の フォルダ一覧を取得し、 そのフォルダ一覧以下のファイルを取得し、 そのファイルを読み込むサンプルソース 'Folder の一覧を取得する Sub ListUp_FolderList(FolderSpec) Dim Folder_Collection As Object Dim Folder_List As Variant…

サンプルソース Do Until oRS.BOF Or oRS.EOF DoEvents 重い処理() oRS.MoveNext Loop http://homepage2.nifty.com/kasayan/vba/doevents.htm

Application.DisplayAlerts = False http://oshiete.goo.ne.jp/qa/1353228.html

http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=18124&forum=7 http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200902/09020005.txt 上記によると「IMEX=1」を加えるとOKみたいな感じですが 26レコード目までが数字しか入力されていない…

［ツール］→［ユーザー設定］→［コマンド］タブ→ ［分類：書式］→［コマンド：セルの結合］→ ツールバー上にドラッグアンドドロップ→ ユーザー設定ダイアログは閉じずに［セルの結合］ボタン上で右クリック → ［イメージとテキストを表示］→［閉じる］ おわり…

ACCESS で OUTER JOIN はサポート外 なので hogeテーブル┌─────┐│ID name │ ──────│ 1 a ││ 2 b ││ 3 c ││ 4 d │└─────┘ fugaテーブル┌─────┐│ID name │ ──────│ 1 a ││ 2 b ││ 3 c ││ 5 e │└─────┘ mofuテーブル┌─────┐│ID name │ ──────│ 4 d ││ 5 e │└───…