Excelの列幅の調整をAccessから?>早速で申し訳ありませんが、ACCESSからEXCELファイルを操作させる>手法をご指導頂けないかと投稿させて頂きます。(前置きが長くすみません)>EXCELファイルのブック全体に対して、列幅を調整できないかと悩んでおります。>シートの数は、その時によって変化してしまうので、シートの指定ではできない>と感じております。シート毎にA列の幅が異なるので、全てのシートを最大>に設定すれば良いのですが、なるべく文字数の最大に設定したいと考えております。>>これらの要素をACCESSから操作することは可能でしょうか?ア.Accessからイ.開いているExcelブックに対してウ.全てのシート(ブック全体)エ.列幅の調整を行いたい。マクロ記録で探ってみるア.Accessからイ.開いているExcelブックに対してウ.全てのシート(ブック全体)エ.列幅の調整を行いたい。マクロ記録で探ってみました。Sub試行錯誤の動画こんな感じで、マクロ記録で作ってみました。次は、全てのシートに対して処理を行いたいと思います。.Count番目まで処理を回してみました。'シートのn番目を選択'シート単位で行いたい処理'シート単位で行いたい処理'シート単位で行いたい処理Nextまぁ、こんな感じで作ってみました。ハマった動画は、下記のような感じです。シートの選択(処理中シート、アクティブの切り替え)が取得・切り替え可能だったので、次は、ブックの切り替えを探ってみたいと思います。ブックの切り替えを調査するシートの切り替えはできたので、ブックの切り替えにチャレンジしてみる。Subと記録されました。ここから、Windows("TEST001.xls").Activateで、ブックが切り替わることを確認。次に開かれているブックの数を知りたかったので、イミディエイトのウインドウでapplication.と入力すると、.Windowsが見つかり、その先にいつもの.Countを発見。ブックの数を知ることができました。あとは、組み合わせで、ループさせてみました。Sub試行錯誤、マクロ記録からブックの切り替えを探る試行錯誤の動画、マクロ記録から、WorkBookを切り替える命令(VBA)を探ってみました。ほとんど本番環境だけど)を作ります。Accessで貼りつけ(ペースト)してみました。チャレンジしてみます。データを(クエリーの中身を)書き込みます。ADOでクエリーを読み込み、Excelへ単純に書き出すクエリーからエクセルへデータを転記します。書き込み後、エ.で調べた、列幅の自動調整の命令Cells.EntireColumn.AutoFitを使用して、列幅を自動調整してみます。'変数も後始末しますか。Sub↑データ出力のループが終了したら、'Excelシートの列幅を自動調整objEXCEL.Cells.EntireColumn.AutoFitを1行入れただけです。グループ単位(ドラマタイトル単位)でシートを作成して書き込むクエリーからデータを読み込み、ドラマのタイトルが変わったら、シートを新しく作成して、シート単位でデータを作成してみました。作成後、全てのシートに対して.Cells.EntireColumn.AutoFitをかけて、列幅を調整してみました。'変数も後始末しますか。'一番左のシートを選択するで、全てのシートに対して、列幅を自動調整してみました。↓そんな処理でハマった話は、下記の解説動画を見て笑ってください。下記、いつもの動画解説です。調子に乗ってノーカットで、アップしてしまった※やはり、最低限の編集は必要だったなぁ・・・と思いつつ、15分以上の実験を兼ねてアップしました。分類:HPを大きく分けると4つの柱(分類)です。Pages)]の解説。・読み物として[プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。・おまけで[元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の異業種へ転職、コンビニ店長で失敗。え~と、こんな感じ...の独り言が多い解説やテストの動画です。ヘルプこのグループについて。