xlApp.Visible = False  Workbooks このブックは、仕事で使っているもので、様式が決まっており、ある人が作ったシートに私が文字を入力していくようになっているものです。 Dim xlApp As Excel.Application 値を代入し名前を付けて保存してオブジェクトを開放する。という流れで良いと   Workbook 最近は、Raspberry Pi で面白いモノを作りたいと思っています。. Exit_opnXLtmp:   End With Resume Exit_opnXLtmp ちょっとした時短です! 変数にオブジェクトの参照を代入します。Addメソッドを使って新規workbookと Resume Exit_Cmd1_Click Dim xlSheet As Excel.Worksheet しかしならがら、まとめて削除する手段がなく、ちまちまと一個づつ削除する不毛な作業を強いられます。, https://support.microsoft.com/ja-jp/kb/213904 によれば、「セルの書式が多すぎる」エラーが出るのは、Excel2003なら登録数が4000個、Excel2007以後なら登録数が64000個を超えた場合のようです。となると完全に綺麗にするには何千何万回も削除操作しなければなりません。そんな膨大な手作業は無理!, そこでマクロを使って、デフォルト(ビルトイン)のスタイルのみ残し、他を全部削ってしまうことにします。   objEXCEL.sheets(1).PageSetup.FitToPagesWide = 1 'シートの列幅の自動調整 Else xlSheet.Cells(1, 1).Value = "12" のように。   Set S = B.WorkSheets("Sheet1") を MsgBox "新規ブックは保存できませんでした。", vbOKOnly ※全文を公開している「投げ銭」スタイルのノートです。 誰かからもらったエクセルや古いエクセルを開くと出てくることがある、このエラー。 他のブックを参照していたけれども、そのブックが見つからなくて発生するのですが、どこから参照しているのか原因を突き止めるのが難しいです。 「表示形式を追加できません」エラーが発生すると、新規ブックへセル範囲の複写などをして解消(未使用の表示形式は複写の非対象) 自分にスキルがなく、あれこれ凝ったものは作れないので、 そこで、出力する前に、Excelのセルの書式設定を列毎にしようとしていますが、どうしても上手くいきません。 タイトルのとおり、VBAでAccess2003からExcel2003のセルフォーマットを変更しようとしていますが、Excel上のVBAで利用できるWorksheet-Range-Selectやその他いくつかのメソッドが、Accessからは利用できません(Accessでは"Microsoft Exc .LeftHeader = "" objEXCEL.Cells(yLINE, "A") = rs.Fields("ID") ありがとうございました。, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。 なにか良い方法がありましたら教えてください!! On Error GoTo Err_Cmd1_Click wkb.SaveAs FileName:=fName タスクがたくさんあると、ついうっかり納期を忘れてさぁ大変!   Dim S As Excel.WorkSheet      Cells   ' ページの高さに合わせる '保存ダイアログからの入力を受けて保存 従って、Excelでやる時のようにRangeを単独で指定   ' ページの幅に合わせる(下記は横のページを1ページで納める設定です) を追加してください。 Exit Sub 参考になるサイト等ありましたら、ご教示いただけますか。 Excel の印刷がらみの設定は PageSetup を変更して行います。 やりたいことは End Sub, こんにちは。 End If その中で「表示形式」の中のユーザー定義部分については、設定後、使用しなくなっても、組み合わせとして残っています。   Dim R As Excel.Range いつも対象のセルを選んでから、右クリックでセルの書式設定を選び、罫線やフォントの種類を変更しているのですが、今作っているブックでは右クリックをしてもセルの書式設定が選べません。このブックは、仕事で使っているもので、様式が rs.Close '見出しを書き込む タイトルのとおり、VBAでAccess2003からExcel2003のセルフォーマットを変更しようとしていますが、Excel上のVBAで利用できるWorksheet-Range-Selectやその他いくつかのメソッドが、Accessからは利用できません(Accessでは"Microsoft Excel 11.0 Object Library"を参照しています) 入れる方法がどうしてもわかりません。 ・データがある行列に格子線を引き、1行目の項目列の下は二重線、外側は太線にしたい。 こんな感じで記述してください。 リンクの#013では、テンプレートを元にデータを埋め込み、EXCELの画面を表示したところで、マクロを終了させる Dim strExcelSheet As String Dim yLINE As Integer '行カウンター .LeftFooter = "" End With Dim xlSheet As Excel.Worksheet   Dim B As Excel.Workbook   Dim xlApp As Excel.Application xlApp.Cells.Select Option Compare Database 2.AccessからExcelを制御してCSVにコンバート できますが、大変面倒な作業です。 が出てしまい、VBAの基礎知識がない私にはどうしてもわかりませんでした。 そして記述中の宣言以外の部分で使っているstrExcelSheet.Cells(1, 1).Value = "12"の部分から以下のstrExcelSheet.をxlSheet.に置き換えてください。 End Sub   On Error Resume Next ビジネスフリーソフトで業務効率化を図りませんか?仕事が快適にはかどる便利なツールをご紹介します。会計、税金、医療や病院、学校の教務、人事・給与、データベース作成など幅広い用途に対応します。ビジネスフリーソフトで業務効率化して自由時間を作りましょう!, この記事は約 3 分で読めます。 [Excel 2007] セルに入力した値をマウスでドラッグしても、連続する値として入力できません。 Excel 2007を使用しています。 セルに入力した値をマウスでドラッグしても、連続する値として入力できません。 オートフィルオプションが動作しません。 objEXCEL.Cells(yLINE, "B") = rs.Fields("氏名") どなたか解決方法をご存知の方、よろしくお願いいたします。 MsgBox Err.Description     x.xはバージョン End With, RangeとかxlDiagonalDownはExcelのVBA環境だから ExcelでVBAを書くことで制御する方法もありますが、 「Excelにエクスポート」ボタンをクリックすると、Inputboxか何かが表示されて、Pathやファイル名やシート名を入力し、「実行」ボタンを押すと、新規にExcelのBookを、そのPath、ファイル名、シート名で作成する。その後、そのシートにデータを書き込むという作業をしたいのです。   Dim A As Excel.Application objEXCEL.Range("C1") = "住所" 思います。   xlApp.Quit Access側からExcelを制御する方がやりやすいと思います。, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。 ヘッダはWith xlSheet.PageSetupの中で Repaintは、VBAでキャプションなどを変更したとき使っています。 この順序で行えばOKです。 Private Sub Cmd1_Click() ...続きを読む, こんにちわお世話になります。   Dim WB As Excel.Workbook できません。   objEXCEL.sheets(1).PageSetup.PaperSize = xlPaperA3 失礼しました。ざっと書いたものでSheetの宣言が一つ抜けてました。 VLOOKUP関数やIFERROR関数などを組み合わせたり、さまざまな書式も設定しました。, ある時見てみたら、コードだけではなく商品名や単価、金額までも消されてしまっていました・・・, というわけで、今回はうっかり消したり入力したりできないようにする「シートの保護」についてのご紹介をします。, Excelで同じ書式を複数の箇所に設定することってありますよね? Dim xlSheet As Excel.Worksheet '←追加 なんてこともあると思います。 '項目名をセルの中央に   以下の様にすると、例えば「xlNone」は宣言されていない等のエラーになります。 仕事でどうしても必要に迫られて、受付管理のツールを作ることになりました。 Dim objExcelApp As Workbook objEXCEL.Range("A1") = "ID" Dim nXLINE As Integer   ' その他の定数については、http://msdn.microsoft.com/ja-jp/library/office/ff834612.aspx を参照 Set xlApp = CreateObject("Excel.Application") End Sub Set objEXCEL = CreateObject("Excel.Application") Excel の印刷がらみの設定は PageSetup を変更して行います。 Dim strExcelFile As String 従って、Excelでやる時のようにRangeを単独で指定 .Pattern = xlSolid テンプレートに入力後、受付IDをファイル名にして、テンプレートとは別もので保存 * ObjectLibraryにチェックを入 xlApp.Columns("A:A").NumberFormatLocal = "\#,##0;\-#,##0" -------------------------------------------------------------- 解決方法(一例)は以下の通り。 worksheet オブジェクトを作成します。 他に思い当たることがあればお知らせ下さい。, 「フォーマット エクセル」に関するQ&A: excelからexcelへの差し込み印刷, 「文字列 日付」に関するQ&A: エクセル 複数条件での検索を関数を使って解決したいです。, 「Excel タイトル」に関するQ&A: EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには, 「VBA select」に関するQ&A: EXCEL VBAで全選択範囲の解除, 「タイトル エクセル」に関するQ&A: エクセルのシートのタイトルバーが隠れている, 「VBA アクセス」に関するQ&A: フォームを開くときに、コンボボックスの値を選択(アクセスVBA), 「マイクロソフト アクセス」に関するQ&A: マイクロソフトのサイトだけアクセスできない, 世の中の成功している男性には様々な共通点がありますが、実はそんな夫を影で支える妻にも共通点があります。今回は、内助の功で夫を輝かせたいと願う3人の女性たちが集まり、その具体策についての座談会を開催しました。, ACCESSからEXCELにエクスポートした際、ACCESS側でEXCELの書式設定は行えますか?(例:セルAの幅がX桁等) メインフォームにタブオーダーをつけてサブフォームを複数配置しています。   ' ズーム設定(自動で行うので設定はしない)     .Visible = True fName=rst!受付ID Dim strWORK As String yLINE = yLINE + 1 オブジェクトへの参照を格納する変数を事前バインディング。 xlApp.Cells.EntireColumn.AutoFit http://www.nurs.or.jp/~ppoy/access/access/acX001.html 参考URL:http://www.nurs.or.jp/~ppoy/access/access/acF007.html, Access2000かExcelファイルのデータを取得したいのですが、 Application '要参照設定:Microsft Excel x.x Object Library End With While rs.EOF = False Set xlBook = Nothing やり方を紹介しています。 こんな感じになるのではないでしょうか。, 1番目のリンクの方のサイト、すごいですね。テクニカルかつ分かりやすいです。 本ソフトは、次のような方法で未使用のユーザー定義の表示形式を認識しています。, (1)対象ファイル(XLS)をバイナリー解析して、ユーザー定義の表示形式を抽出します。 Dim objEXCEL As Object 検索してあれこれ試しましたが「オブジェクトがない」や「サポートしてない」などエラーメッセージ ボタンをCmd1とすると 使えるオブジェクトや定数です。Access環境では使用 Set rst = Nothing: Set cnn = Nothing Refreshは最新のレコード(テーブル)を再表示するような気がします。レコードの移動は起こらない気がします。 yLINE = 2  'ループ処理 データは下記のコードでなんとか出るようになりましたが、このコードの中に罫線を引くコードを ・行の高さを数値で指定したい。 でも、よくわかっていません。 Sub AddXLWorksheet() Dim objExcelApp As Workbook 調べてたらこんなのがでてきました。 思います。 Selection.Borders(xlDiagonalUp).LineStyle = xlNone   Set A = New Excel.Application VBEの編集の置換で簡単に出来ますので。 Set xlBook = xlApp.Workbooks.Open("\XX.xls") Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("\XX.xls") もしご存知でしたらお教えいただければ幸いです。, 「フォーマット エクセル」に関するQ&A: Excelの住所録フォーマット表をずっと下まで無限につくりたい, 「マイクロソフト アクセス」に関するQ&A: マイクロソフトから、「誰かがあなたのアカウントにアクセスした可能性があります」と通知が来ました。 パ, 「Excel タイトル」に関するQ&A: 【Excel】タイトル行をそれぞれ列に変換したい, 「文字列 日付」に関するQ&A: エクセルに入力された日付「S40.07.20」(文字列)を西暦の日付データに修正したい, 「タイトル エクセル」に関するQ&A: エクセルの入門者ですが横に並ぶタイトルのAから始まる文字を変えるにはどうすればいいですか?, 「VBA アクセス」に関するQ&A: アクセス VBAが使えれば、マクロは覚える必要はな, 「VBA select」に関するQ&A: VBA Select Caseについて, Applicationオブジェクトからの参照なのですね。MSのリンクも大変有用です。有難うございました。大変助かりました。, 解決しましたのでソースをお渡しするのは見合わせますが、お申し出ありがとうございました。, 試してみましたが、確かに使えそうです。ありがとうございました。 Access から既存のエクセルファイルをテンプレートとして開いて 誰かからもらったエクセルや古いエクセルを開くと出てくることがある、このエラー。他のブックを参照していたけれども、そのブックが見つからなくて発生するのですが、どこから参照しているのか原因を突き止めるのが難しいです。, 私も過去に何度もこのエラーに遭遇し、その原因を調べましたが、今ではこの5つのパターンのいずれかに当てはまるようになりましたので記事にまとめました。, おまけとして、私の経験上 このエラーを生み出してしまいがちな状況について記載しましたので、本文と併せて読んでいただければと思います。, 調べ方は簡単で、Ctrl + f で 検索と置換 ウィンドウを開き、オプションで検索対象を数式にして [ や ] や !   objEXCEL.sheets(1).PageSetup.FitToPagesTall = False    WorkSheets #013の末尾(http://www.nurs.or.jp/~ppoy/access/access/acX013.html)   Dim WB As Excel.Workbook この#013の最後に#001の保存方法を組み合わせれば、たぶん出来ると思います。 お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。. Dim xlSheet As Excel.Worksheet   Dim xlApp  As Excel.Application xlApp.Quit http://www.nurs.or.jp/~ppoy/access/access/acX001.html AccessのデータをExcelの任意のシートを開いて書き込むという部分のVBAコードはわかりますので、新規Book作成部分のコードがわかるかたお願いします。   On Error Resume Next のですが可能でしょうか? そのサブフォームにボタンを置いて どんなときにどんなメソッドを使えばいいのでしょうか?   Selection.Borders → R.Borders Excelを他のアプリケーションからCOMモデルで使用 この2つがセットで、セルに入力・編集ができなくなるというわけです。 そして、元々シート内の すべてのセルに「ロック」がかかっています。 そのため、そのままシートを保護するとすべてのセルに入力ができなくなるのです。 (1)参照設定に「Microsoft Excel x.x Object Li...続きを読む, ACCESS初心者です。   xlSheet.SaveAs "c:\Temp.xls" Exit_Cmd1_Click: メインフォームにタブオーダーをつけてサブフォームを複数配置しています。 .Weight = xlThin Set xlSheet = xlBook.Worksheets(1)   Dim xlBook As Excel.Workbook ...続きを読む, お世話になります。   Dim xlBook As Excel.Workbook Private Sub Command1_Click() どうかアドバイスお願いいたします。 どうぞよろしくお願いいたします。 そもそもできるのかどうかもわかっておりません。 コピーして使おうと思っているワークシートは罫線とかフォントが違うので、変更しないといけないんです。 こんな感じでしょうか。, プロジェクト→参照設定でMicrosoft Excel *.     WorkSheet   Dim SH As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Selection.Borders(xlDiagonalDown).LineStyle = xlNone (保存はユーザーの手動に任せる)方法を紹介しています。 を忘れていました。 VBE...続きを読む, アクセス2000で、ある所定の条件を満たした時に、規定の場所にあるエクセルファイルの先頭から2番目に空のワークシートを追加し、そのシート名を変数に格納されている値でリネームしようとしております。結構急務なんですが、excel.application~等使っても出来ませんでした・・・。プロフェッショナルな方、誰か方法を教えていただけないでしょうか?よろしくお願いします。, こんにちは。 (2)抽出したユーザー定義の表示形式と実際に使われている表示形式を照合します。→合致しなかったものが未使用の表示形式となります。, そういうときに、いろんな書式設定をして、それが解除できなかったらエラーになるかも知れません。, この説明に出てくるように、エラーが出たら新規ブックにコピペするというので解消できるにしても手間はかかる。, 1つ2つならいいですが、数が増えると面倒だし、ファイルの管理上面倒が増えて間違いも起こりやすくなる。, そういう点を考えると複雑な書式設定をする人はこういうソフトを入れておくと便利なんじゃないでしょうか。, 管理人は今はそんなにエクセルを使いませんし、そもそもエクセルのセルで細かい書式設定をすることもなかったのでこういうソフトを使ったことはありません。, ただ人によっては色々と書式設定をして、フリーズしたりエラーが出たりすることもあると思います。, 対処療法的に別シートにコピペするのもいいんでしょうが、こういうソフトで簡単に書式を外せるよにしておくほうが効率的でしょう。, エクセルの色や罫線の操作には2アクションが必要になるがそれを1アクションに出来ないか?ちょっとした手間の軽減ではあるが、その回数はバカにならないのでフリーソフトで出来ないか。それなら「色線記(しょくせんき)」。エクセルの色や罫線の手間が減りますよ!, エクセルシート間のデータを比較したいと思うことはありませんか?印刷してとか、マルチモニタでとか確認方法はありますが、ミスしそうです。それなら「Excelシート比較ツール」はいかがでしょうか。これがあればエクセルシートのデータが扱いやすくなりますよ!, エクセル操作を簡単にしたい。リボンを探すのは面倒だからボタン1発でなんとかならないか?それなら無料ソフトの「右クリック変換マクロ~EXCEL2007以降用~ビジネス用」はどうかなと。業務効率が向上する機能も使えるし、エクセル操作が簡単になりますよ!, フローチャートを簡単に作りたい。これがうまくできれば仕事の手順を考えるときや、説明をするときにとても役に立ちますから。ならばエクセルでフローチャートを簡単に作れる「Flowchart Excelアドイン」。フリーツールですから気軽に導入できますよ。, アンケート調査の集計をしないといけないんだけど、簡単で使いやすいソフトはないものか?出来れば慣れたエクセルで使えるフリーソフトがいいんだけど。それなら「アンケート君」はいかがでしょうか。アンケート調査の集計やグラフ分析に使えて便利だと思いますよ!, グラフ画像を数値化したい。自分で線を引いて図から数字を読み取ることはできるんだけど、もうちょっと簡単にやりたい。スキャンすればエクセルで取得できるようになれば便利なんだけど。それなら「Dizitizer」。グラフ画像を数値化出来るようになりますよ!, カーソルを目立たせるにはどうすればいいか?エクセルで編集していると、どこに入力しているかが分からなくなるときがあるのでもっと分かりやすくしたい。それなら「カーソル(編集)行、列を目立たせるExcelアドイン」。カーソルを目立たせることが出来ますよ!, UML図をエクセルで作成したい。本格的なソフトを使えばいいがそこまでやる必要もないしワードやパワーポイントとの連携も慣れているからやりやすい。そういうアドインはないか?それなら「ExcelでUML」。UML図をエクセルで簡単に作ることが出来ますよ!, エクセルブックの一括編集が面倒だ。もっと簡単にできないか?数が多い単調な作業は自動的に処理したい。それなら無料ツールの「ファイルシート一覧マクロ~ST機能対応~ビジネス用」が便利かも。指定したフォルダ内のエクセルブックの一括編集がラクにできますよ!, エクセルを効率よく使いたい。人間が同じ動作を何度もやらなくてもいいじゃないか。そういうことなら「ExcelDevTool」はいかがでしょうか。ライセンス購入が必要ですが、多くの機能がパワーアップして業務がはかどるはず。エクセルを効率よく使えますよ!.