OpenOfficeのマクロでダイアログを開くには？ OpenOfficeのCalcを使用しています。…
OpenOfficeのマクロでダイアログを開くには？ OpenOfficeのCalcを使用しています。マクロについて質問です。 ExcelマクロのVBAで、ダイアログボックスを開くのに下記コードを使用しています。 dlgAnswer = Application.Dialogs(xlDialogOpen).Show If dlgAnswer = False Then Exit Sub End If このコードは、OpenOffice.org（Go-oo 3.1.0）では動作しません。1行目でエラーになります。 OpenOffice.orgで動作するコードはどのようになるでしょうか？ 条件としては、 ・ExcelとOpenOffice.org(Go-oo）の両方で動作する ・ボタンを押すとオープンダイアログが開き、ファイル名を返す（もしくはファイルを開く） というマクロです。
Office TANAKA - Excel VBA Tips[ブックを開かないでセルのデータを読む]
このコンテンツは、かなり昔に書きました。正確な時期は覚えていませんが、ワークシートの大きさが65,536行より小さいブックに関して触れていましたので、おそらく1998年前後に書いたのではないかと。22年前かぁ…ｗ 内容もちょっとアレですし、書き足したいこともありますので、全面的に書き直します。ちなみに今は、2020年9月です。 なお、本稿と"ほぼ"同じ内容をYouTubeの動画で公開しています。本稿とは違い、100個のブックから読み込んで所要時間を計測していますので、興味のある方はご覧ください。本稿は、1つのブックから読み込むという基本的な方法と、動画では伝えきれなかった"制約"に関して詳しく解説します。 Excel 4.0マクロで読み込む 原則としてExcelのVBAは、Excel上に読み込んだブックを扱います。Excel上に開いていないブックは、原則として操作できません。この原則は、し
VBA応用(フォルダ内のファイル一覧の取得)
単一フォルダと配下のフォルダを含めたファイル一覧を取得します。 ここでは、古くからあるDir関数を用いた単一フォルダ内のファイル一覧の取得を行なうサンプルと、FileSystemObject(FSO)を使って指定フォルダから配下の全サブフォルダも含めてファイルの一覧を取得する2つのサンプルを紹介します。 まずは、Dir関数を用いた単一フォルダ内のファイル一覧の取得です。 フォルダの指定はInputBoxで入力してもらうことにします。実際の一覧取得とシートへの展開を行なっている記述は下半分だけです。 '*************************************************************************************************** ' 指定したフォルダ内のファイルの一覧を取得 Module1(Module) ' ' 作成者:
■ - みおんこ - ほぼVBメモ
え？もう知ってるって？ そんな奴はくるな！ というわけでExecuteExcel4Macro がすごいんですよ。 最近作ったVBAで「印刷ページを取得」ってのがやりたかったんですが マイクロソフトとか こんなこと言いやがるんですよ （2002版ですが） '-------------------------------------------------------------------------- ' プロシージャ名： ChangeToolbarProperties ' このサンプルは、ワークシート Sheet1(オブジェクト名 :Sheet1) を印刷した ' 時の印刷ページの総数を MsgBox 関数を使用して表示します。 ' '-------------------------------------------------------------------------- Su
エクセルで、複数のブックの各シート名の変更をマクロでやりたいです。お知恵をください。 - ①ブックが複数（2000近く）あるた... - Yahoo!知恵袋
同じフォルダーに集約して 別のブックに下記のコードを記載して実行して下さい。 尚、コードを記載したブックは対象外として、又、Ｉ５セルが空白の場合はスキップして処理します。 ------------------- Sub test() Dim path$, wb As Workbook, wbName$ Dim ws As Worksheet, i& path = ThisWorkbook.path & "\" wbName = Dir(path & "*.xls") Do Until wbName = "" If wbName <> ThisWorkbook.Name Then Set wb = Workbooks.Open(path & wbName) i = 2 For Each ws In wb.Worksheets If Trim(ws.Range("I5")) <> "" The
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
