No.1
- 回答日時:
下記の表現はどうでしょうか。
この命令を使った後にファイルを開くとタスクバーに
開いたファイルが出るだけでファイル内容は表示されません。
○非表示する場合
Application.ScreenUpdating = False
○非表示を戻す場合
Application.ScreenUpdating = True
はずしていたらごめんなさい。
この回答への補足
ありがとうございます。
自分もApplication.ScreenUpdating = False にしているんですが、なぜか False になりません。
Excelの設定か何かありますか?もし知っていたら教えてください。
No.2
- 回答日時:
開くexcelファイルがデータのような型式でしたら、”外部データの取り込み”で、ファイルを開くことなく持ってこれます。
メニューバーの[データ]>[外部データの取り込み]>[新しいデータベースクエリ]で、Excel File を選択>参照するブックを選択>シートを選択>フィールドを選択・・・の手順で参照を登録していきます。これをマクロの自動記録で記録してみてください。
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=Excel Files;DBQ="\\***\*.xls"; _
"DefaultDir=="\\***";_
~省略~
End With
こういう感じになります。
ただ、私もNo1.の方の回答の方法をお勧めします。
この回答への補足
ありがとうございます。
処理の流れとしては、入力フォームを開いたとき、別フォルダの別Bookの値を取得し、それをフォームのComboBoxのリストに追加するという処理です。
No.3ベストアンサー
- 回答日時:
○別のBookを開いて参照する例です。
最後は閉じています。開いた状態は見えないはずです。標準モジュールに貼りつけます。(当方、Excel97です)
○これとは別に、別のBookを開いた状態で、算式で参照しておけば開く必要はありません。
特定のセルを参照するならこちらのほうが簡単です。
Sub SansyoBook()
Dim xlsFilePath As String '別のExcelBookのパス
Dim xlsFileName As String '別のExcelBookのファイル名
Dim myBk As String '呼び出すBook名
Dim otBk As String '別のBook名
myBk = ThisWorkbook.Name
Application.ScreenUpdating = False
ActiveCell.Activate
'///// パスとファイル名をセットする /////
xlsFilePath = "C:\・・・・\・・・・\" '自分でセットします
xlsFileName = "別ブックBook1.xls" '自分でセットします
'///// 別Bookを開く /////
Workbooks.Open xlsFilePath & xlsFileName
otBk = ActiveWorkbook.Name
'///// 元のBookのほうから別Bookのセルを参照 /////
Workbooks(myBk).Activate
With Workbooks(otBk).Worksheets("Sheet1")
Range("A1") = .Range("A1") 'セルA1を参照する
Range("A2") = .Range("B2") 'セルB2を参照する
End With
'///// 別Bookを閉じる /////
Workbooks(otBk).Activate
Workbooks(otBk).Close
Workbooks(myBk).Activate
Application.ScreenUpdating = True
End Sub
この回答への補足
ありがとうございます。
自分もほぼ同じコードになってるんですが、Application.ScreenUpdatingがなぜか False になりません。
処理の流れとしては
入力フォームを開いたとき、別フォルダの別Bookの値を取得し、それをフォームのComboBoxのリストに追加するという処理です。
Excelの設定か何かありますか?もし知っていたら教えてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) VBAで特定の場所にあるCSVファイル(複数)から特定場所を抜き出してExcelに転記したいです。 11 2023/05/23 16:29
- Visual Basic(VBA) エクセル VBA 条件によるセル点滅 お詳しい方 ご教授をお願いします。 Excelファイルにて 現 1 2022/11/03 15:53
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- ノートパソコン EXCEL のドキュメントの回復について 2 2023/03/19 17:16
- Excel(エクセル) 「Excelのオプション」の「ユーザーインターフェイスのオプション」の設定値をVBAで取得したい 1 2022/07/31 23:49
- Excel(エクセル) アンケート集計用VBAについて教えて下さい。 約100人にアンケート内容が入ったExcelファイルを 1 2022/07/27 13:12
- Visual Basic(VBA) EXCEL VBA データベースの内容をユーザーフォームに表示したい。 5 2023/02/14 11:40
- Excel(エクセル) Excel VBA 3 2023/04/22 10:46
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
共有フォルダに誰が何にアクセ...
-
拡張子が「cda」のファイルを聞...
-
【Excel】[Expression.Error] ...
-
Access VBA を利用して、フォル...
-
Batch: フォルダ内の特定のファ...
-
AccessVBAで作成したExcelファ...
-
リソースのみのDLLの作り方と使...
-
事務の派遣で働いています。多...
-
tmpファイル なぜできる?削除...
-
月が変わったら自動でシートが...
-
【ExcelVBA】FreeFile関数とGet...
-
VBAでCSVファイルが使用中かど...
-
データベースを作るために必要...
-
COM+を使ってネットワーク越し...
-
特定のエクセルファイルを起動...
-
XMLDocumentのLoadとSave
-
0バイトのファイルを検知したい。
-
1行読み込んだ後に消去
-
excelを共有ファイルにすると行...
-
メールdbxファイルの開く方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
共有フォルダに誰が何にアクセ...
-
【Excel】[Expression.Error] ...
-
特定のエクセルファイルを起動...
-
Batch: フォルダ内の特定のファ...
-
VBAでCSVファイルが使用中かど...
-
月が変わったら自動でシートが...
-
tmpファイル なぜできる?削除...
-
AccessVBAで作成したExcelファ...
-
Access VBA を利用して、フォル...
-
(Excelマクロ)datファイルをエ...
-
事務の派遣で働いています。多...
-
Excel VBA 処理後データが重た...
-
excelを共有ファイルにすると行...
-
【アクセス】「ほかのユーザー...
-
XMLデータを変換し印刷する方法
-
CSVの項目行を削除して一つのフ...
-
mdbファイル フォームを開くと...
-
社内Excel共有ブックでの保存ト...
-
ファイルの途中に文字列を挿入
-
拡張子が「cda」のファイルを聞...
おすすめ情報