ExcelVBAで翌月のファイル名取得 -ExcelVBAを使って翌月のフ-

ExcelVBA一つ上までのフォルダ作成

ExcelVBA2007以上で質問です。現在のファイルのあるフォルダは例えば「11月分」という名前になっています。もうひとつ上は「2014年」というフォルダになっています。コードを実行すると、翌月のフォルダとファイルを作成するようになっています。現在11月なので、実行すると「12月分」というフォルダを作成して、「AAA2014-12」というファイルを作成します。さらにこれを実行して、例えば "D:\YM\Desktop\AAA\2015年\1月分"\AAA2015-1.xlsm のように2015年のフォルダを作成してさらにその中に1月分のフォルダを作成したいのですが、2014年フォルダの中に1月分フォルダが作成されるだけで、どうすればいいのか分かりません。今の所、月のフォルダと、ファイル名は翌月取得が下記のコードで実現できています。最後のコードに手を加える必要があると思いますが、どうすればよいでしょうか？ Sub AAA翌月ファイル作成() Dim myDir_path As String, myNew_path As String '現在ファイルがあるフォルダパスを取得 myDir_path = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "\") - 1) '翌月分のファイル名を取得 myNew_path = "在庫数" & Format(DateAdd("m", 1, Replace(Replace(ThisWorkbook.Name, "AAA", ""), ".xlsm", "")), "yyyy-m") & ".xlsm" '翌月のファイルを保存するフォルダ名を取得　　　あとは、年が変わったら1年繰り上げたものを取得したい myDir_path = Left(myDir_path, InStrRev(myDir_path, "\")) & Format(DateAdd("m", 1, Replace(Replace(ThisWorkbook.Name, "AAA", ""), ".xlsm", "")), "m") & "月分\"

エクセルvbaブック名の年を進めたい

エクセル2013vbaです。 2014年という名前のファイルがあります。 vbaで、 Sub test() Dim myNew_path As String myNew_path = Format(DateAdd("yyyy", 1, Replace(ThisWorkbook.Name, "年.xlsm", "")), "yyyy") End Sub を実行すると、"1906/07/06"を取得しており、"1906"となってしまいます。無理やりDateAddで110を足せば"2015"の取得はできますが、どうしてでしょうか？どのように修正すればまともにDateAddに1を足して"2015"を取得できるのでしょうか？すいませんが、お願いいたします。

vbaで新規フォルダ作成時の名前の指定

「あいいうえお」フォルダの中に年が変わったら「2015年」という名前でフォルダの作成を行いたいのですが、下記のコードでは「あいうえお2015年」という名前のフォルダを作成してしまいます。フォルダの作成で、「あいうえお」を除いたものを作成するにはどう変えればよいでしょうか？（12月のファイルで実行した時に例えば「2015年」フォルダを作成して、その中に「あいうえお2015-1月.xlsm]ファイルを作成します。同じ年なら「あいうえお11月.xlsm]などファイルのみを作成します。）お手数をおかけしますがどうぞよろしくお願いいたします。 Sub ブックコピー自動翌月分作成() Dim i As Integer Dim wb As Workbook Dim myDir_path As String, myNew_path As String 'フォルダパスとファイルパスを作成 myDir_path = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "\") - 1) myNew_path = "あいうえお" & Format(DateAdd("m", 1, Replace(Replace(ThisWorkbook.Name, "あいうえお", ""), "月.xlsm", "")), "yyyy-m") & "月.xlsm" myDir_path = Left(myDir_path, InStrRev(myDir_path, "\")) & Left(myNew_path, 9) & "年\" 'フォルダの有無を確認、なければ作成 With CreateObject("Scripting.FileSystemObject") If Not .FolderExists(myDir_path) Then MkDir myDir_path 'MsgBox myDir_path & "を作成しました" 'MsgBox Left(myDir_path, InStrRev(myDir_path, "\")) & "に" & vbNewLine & MsgBox Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, "\") - 12) & "に" & vbNewLine & _ Left(myNew_path, 9) & "年" & "フォルダを新たに作成しました" End If End With 'ファイルの有無を確認、なければ保存,あれば処理中止 If Dir(myDir_path & myNew_path) = "" Then ThisWorkbook.SaveCopyAs myDir_path & myNew_path MsgBox myNew_path & "のファイルを新たに作成しました" Else MsgBox "翌月分のファイルはすでに存在するので処理を中止します", vbOKOnly, "処理中止" Exit Sub End If '新規作成したブックを開く,既に開いていれば処理中止 For Each wb In Workbooks If wb.Name = myNew_path Then MsgBox myNew_path & "は既に開いているので処理を中止します", vbOKOnly, "処理中止" Exit Sub End If Next Workbooks.Open myDir_path & myNew_path Workbooks(myNew_path).Activate End Sub

VBAで特定のフォルダ内のエクセルファイルをPDF

VBAで特定のフォルダ内のエクセルファイルをPDFに変換する作業しているのですが Filename:=ThisWorkbook.Path & "\" & Replace(f.Name, fs.GetExtensionName(f.Path), "pdf"), _ 出来上がったファイル名をコード_日付にしたく Filename:=ThisWorkbook.Path & "\" & ("コード") & Range("B9") & ("_") & Format(Now, "yyyymmdd") & ".pdf", _ に入力したのですがB9セルのコードが入りません。どこが間違っているのでしょうか？

Excelvbaでブックをコピー名前翌月に変更

Excel2013で開いているブックを丸ごとコピーして、コピーしたブックの名前の月を翌月に進めたいのですが、どうすればよいでしょうか？現在は、とりあえず以下のような感じで一応コピーはできますが、名前は固定です。「2014-11月.xlsm」のブックコピーのvbaを実行すると、「2014-12月.xlsm」のブックが作成され、、「2014-12月.xlsm」のブックのvba実行で、、「2015-1月.xlsm」のブックができるようにしていきたいです。どうすれば実現できるでしょうか？ Sub ブックコピー() ThisWorkbook.SaveCopyAs "D:\***\Desktop\サンプル\2014-12月.xlsm" End Sub

VBAで新規ファイル名

VBAであるテンプレートのファイルを開いて、ファイル名をB3セルに入力された名前で保存したいのです。まず、下にマクロを示します。 Sub 新規_試作マスタ作成() ChDir "C:\Users\H1250-201\Desktop" Workbooks.Open Filename:="C:\Users\H1250-201\Desktop\試作マスター.xlsm" ChDir "D:\A\" & Format(Date, "yyyy年") & "\" & Format(Date, "yyyy年m月") & "" ActiveWorkbook.SaveAs Filename:="D:\A\" & Format(Date, "yyyy年") & "\" & Format(Date, "yyyy年m月") & "\" & Format(Date, "yyyymmdd") & "　" & ThisWorkbook.Sheet1.Range("B3").Value & " 試作.xlsm", FileFormat _ :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub Dドライブの中のAというフォルダがあり、その中に、2014年→2014年1月の順にフォルダがあります。ただし、Aの中には2013年～2020年、2014年の中には、2014年1月～2014年12月のフォルダがあるのです。そこで、今日の日付を参照してそれに応じたフォルダ分けを行い、ファイルの頭に「日付」、その後に「B3セルに入力された名前」、「試作」の順に「日付」　「B3セルに入力された名前」　「試作」という名前で保存されるマクロを作成したいのです。上のマクロでは、ThisWorkbook.Sheet1.Range("B3").Valueの部分がおかしくてうまく行きません。個々の部分をただ文字列として"○○"とするとうまくいきました。つまり、マクロのある自身のファイルのセルを参照したいのです。差し支えなければご回答願います。

Excel ブックのリネームがうまくできません

windows10,microsoft365使用の超初心者です。デスクトップにフォルダ「計算」があります。その中に令和２年度計算.xlsmとフォルダ「実績」があります。フォルダ実績の中に令和２年９月実績.xlsxがあります。このファイルの名前を変えたくて、下記コードをみつけました。実行するとダイアログボックスに、令和２年度計算.xlsmと入っています。このボックスのなかに令和２年９月実績.xlsxを表示するには、コードをどう変えたらいいか教えていただきたいです。よろしくお願いします。 Sub File_Name() Dim Cur_Path As String 'ファイルのパス' Dim Cur_Name As String '元のファイル名' Dim New_Name As String '変更後のファイル名' 'ファイルのパス、ファイル名の読み込み' Cur_Path = ThisWorkbook.Path Cur_Name = ThisWorkbook.Name 'インプットボックスの表示とファイル名の変更' New_Name = InputBox(Prompt:="ファイル名を入力して下さい。", Default:=Cur_Name) '「キャンセルボタン」または「×ボタン」を押した場合' If New_Name = "" Then Exit Sub Else End If 'ファイルの別名保存して閉じて再度開く' ThisWorkbook.SaveAs Cur_Path & "\" & New_Name Workbooks.Open Cur_Path & "\" & New_Name 'ファイルの別名保存して閉じて再度開く' If Cur_Path & "\" & New_Name <> Cur_Path & "\" & Cur_Name Then Kill Cur_Path & "\" & Cur_Name Else End If End Sub

Excel2007で拡張子xlsmのブックを保存

Excel2007でマクロ作成の初心者です。以下のコードを実行させると、月次24年5月.xlsm-4143というブックができてしまいます。そして開くこともできません。どうしたら、月次24年5月.xlsm　というブックにできるのでしょうか。 Sub データの保存() Dim Path As String, WSH As Variant Set WSH = CreateObject("WScript.Shell") Path = WSH.SpecialFolders("Desktop") & "\常用\H24年データ\月次" '和暦の年月で編集する Path = Path & Format(Date, "ee年m月") & ".xlsm" & Excel.xlWorkbookNormal '存在しない場合のみ作成する If Dir(Path) = "" Then ThisWorkbook.SaveAs Path End If Set WSH = Nothing End Sub

【ACCESS】クエリによる正規表現の基本的書き方

いつもお世話になっております。 ACCESSのクエリで、下記8パターンにマッチする文字列を yyyyMMddの形で抽出する方法が判りません。例でも構わないので、ご教示いただけないでしょうか。　(1)yyyyMMdd　　　　　　（数字は半角）　(2)yyyy年M月dd日　　　（数字は半角）　(3)ｙｙｙｙ年ＭＭ月ｄｄ日　（数字は全角）　(4)ｙｙｙｙ年Ｍ月ｄｄ日　　（数字は全角）　(5)yyyy年MM月dd日　　（数字は半角）　(6)yyyy年M月dd （数字は半角）　(7)ｙｙｙｙ／ＭＭ／ｄｄ（数字は全角）　(8)yyyy/MM/dd　　　　　（数字は半角）　　※12月32日等の日付不正は対象外数字の全・半角は区別しなくても抽出可能と考えています。ただ、そもそも、正規表現の基本的な書き方が判らず。。グループ化させるための括弧「()」や、論理和の「|」を使うと抽出できませんでした。 accessでは利用不可なのでしょうか。。一応、私の作成したクエリを掲載致します。テーブルaからdate列を抽出します。上記8パターンにマッチする場合は、yyyyMMdd形式で、いずれにもマッチしなければ空白を返させたいと思います。 SELECT IIf (a.date Like '[1-9][0-9][0-9][0-9](0[1-9]|1[012])(0[1-9]|[12][0-9]|3[01])', a.date, IIf (a.date Like '[1-9][0-9][0-9][0-9]年[1-9]月(0[1-9]|[12][0-9]|3[01])日', Format(CDate(Format(Replace(Replace(Replace(a.date, '年', ''), '月', ''), '日', ''), "@@@@/@@/@@")), "yyyymmdd"), IIf (a.date Like '[１-９][０-９][０-９][０-９]年(０[１-９]|１[０１２])月(０[１-９]|[１２][０-９]|３[０１])日', Format(CDate(Format(Replace(Replace(Replace(a.date, '年', ''), '月', ''), '日', ''), "@@@@/@@/@@")), "yyyymmdd"), IIf (a.date Like '[１-９][０-９][０-９][０-９]年[１-９]月(０[１-９]|[１２][０-９]|３[０１])日', Format(CDate(Format(Replace(Replace(Replace(a.date, '年', ''), '月', ''), '日', ''), "@@@@/@@/@@")), "yyyymmdd"), IIf (a.date Like '[1-9][0-9][0-9][0-9]年(0[1-9]|1[012])月(0[1-9]|[12][0-9]|3[01])日', Format(CDate(Format(Replace(Replace(Replace(a.date, '年', ''), '月', ''), '日', ''), "@@@@/@@/@@")), "yyyymmdd"), IIf (a.date Like '[1-9][0-9][0-9][0-9]年[1-9]月(0[1-9]|[12][0-9]|3[01])', Format(CDate(Format(Replace(Replace(a.date, '年', ''), '月', ''), "@@@@/@@/@@")), "yyyymmdd"), IIf (a.date Like '[１-９][０-９][０-９][０-９]／(０[１-９]|１[０１２])／(０[１-９]|[１２][０-９]|３[０１])', Format(CDate(Format(Replace(Replace(a.date, '／', ''), '／', ''), "@@@@/@@/@@")), "yyyymmdd"), IIf (a.date Like '[1-9][0-9][0-9][0-9]/(0[1-9]|1[012])/(0[1-9]|[12][0-9]|3[01])', Format(CDate(Format(Replace(Replace(a.date, '/', ''), '/', ''), "@@@@/@@/@@")), "yyyymmdd"), '' ) ) ) ) ) ) ) ) FROM a 以上、何卒よろしくお願いいたします。

ExcelVBAマクロでGUIによるファイル名指定

ExcelVBAマクロについて確認させてください。下記のようにマクロのあるカレントフォルダに存在するファイルのなかから読み込みたいファイルの名前を手入力してそれを変数aに読み込ませています。ですが、この方法ですとユーザがいちいち手入力しなければならず、ユーザ負担が大きいのと入力漏れおよび入力ミスが発生する恐れがあります。そこで、マウスでファイルをクリックして指定するように基礎的な操作をマウスによって行うGUIを作成したいのですが、ExcelVBAマクロで可能でしょうか。あるいはExcelVBAに導入が可能なソフトウェアおよびそれが可能なソフトウェアがあればぜひご教授ください。以上、よろしくお願いいたします。－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Sub sample() Dim FN As String Dim FullPathFileName1 As String Dim a As String FN = InputBox("読み込むファイル名を入力してください。（拡張子も含む。）") FullPathFileName1 = ThisWorkbook.Path & "\" & FN a = CreateObject("Scripting.FileSystemObject").GetFile(FullPathFileName1).OpenAsTextStream.Readall a = Replace(a, vbCrLf, "") '改行コードの削除 CreateObject("Scripting.FileSystemObject").GetFile(FullPathFileName1).OpenAsTextStream.Close End Sub

フォルダ内にあるファイルを取得したい

エクセル2010を使用しています。 VBA（マクロ）で以下の作業を実行したいと考えていますが、初心者につき、ご教示いただけますでしょうか。「マクロ」ファイルにある「実行」Sheetというにある「実行」ボタンで L2に入力したパス内にあるファイル（.xlsや.xlsmや.xlsbが混在しますが、基本的には全てエクセルファイル）のファイル名を K8から下へ取得したいのですが・・参考にしたコードでは　うまく動作しませんでした。以下では、L2のパスを参照するのも組めていないため、コード内に直接パスを書き込んでいますが実際は、パスを変動させて使いたいので、L2を参照できるようになると助かります。 ※パスは、質問用に仮置きで「パス」としています。 Sub Sample() Dim buf As String, cnt As Long Const Path As String = "パス" buf = Dir(Path & "*.*") Do While buf <> "" cnt = cnt + 8 Cells(cnt, 11) = buf buf = Dir() Loop End Sub また、このコードではマクロを実行するファイル自体のファイル名も取得してしまうようなので、自身のファイル名以外のものを取得することは可能でしょうか。ご指導のほど、よろしくお願い致します。

ExcelVBAでワークブックを開いた時の処理

Workbook_Open()でファイルを開いた際にある様々なファイル名が書かれたテキストを読み込み、そのテキストファイルと同じ名前があったら、マクロを起動する。というのを試しているのですが、 Workbook_Open()の時点で ActiveWorkbook.Nameや ThisWorkbook.Nameを指定してもアドインのファイル名しか取得できません。どうにか開いたファイル名を取得する方法はないでしょうか？

フォルダ内にあるファイル名を取得するVBA

エクセル2010を使用しています。 VBA（マクロ）で以下の作業を実行したいと考えていますが、初心者につき、ご教示いただけますでしょうか。「マクロ」ファイルにある「実行」Sheetというにある「実行」ボタンで L2に入力したパス内にあるファイル（.xlsや.xlsmや.xlsbが混在しますが、基本的には全てエクセルファイル）のファイル名を K8から下へ取得したいのですが・・参考にしたコードでは　うまく動作しませんでした。以下では、L2のパスを参照するのも組めていないため、コード内に直接パスを書き込んでいますが実際は、パスを変動させて使いたいので、L2を参照できるようになると助かります。 ※パスは、質問用に仮置きで「パス」としています。 Sub Sample() Dim buf As String, cnt As Long Const Path As String = "パス" buf = Dir(Path & "*.*") Do While buf <> "" cnt = cnt + 8 Cells(cnt, 11) = buf buf = Dir() Loop End Sub また、このコードでは実行ファイル自体のファイル名も取得してしまうようなので、実行ファイル以外のファイル名を取得したいです。ご指導のほど、よろしくお願い致します。

シートを他のブックに貼付けたい

Excel2007でマクロ作成中の初心者です。やりたいことは 1）本ブックの中の「当月売上」シートを他ブックに貼付けたいです。 2）他ブックに貼り付けた「当月売上」シート名は、セルK1の日付に変更したいです。すると、他ブックのシートが毎月順に、売上(2012年4月)　売上(2012年5月)　売上(2012年6月)というふうに増えます。 3）何月に作成しても、ブックの「当月売上」シートを貼り付けます。四苦八苦して以下のコードをつくりましたが、「同じ名前のシート名に変更できません。」というエラーがでるので、このエラーが出ないように、名前が同じ時は上書き保存し、違うときは新しいシート名を作るというコードにしたいです。困ってます。どうかご指導お願いします。 Sub 売上シートの貼付け() Dim WBK1 As Workbook ' 本ブックの Dim WBK2 As Workbook ' 貼付け先他ブック ChDir ThisWorkbook.Path + "\売上" On Error Resume Next Set WBK2 = Workbooks("24年度売上.xls") On Error GoTo 0 If WBK2 Is Nothing Then Set WBK2 = Workbooks.Open(ThisWorkbook.Path & "\売上\24年度売上.xlsm") End If Worksheets("当月売上").Copy After:=Workbooks("24年度売上.xlsm").Sheets(Workbooks("24年度売上.xlsm").Sheets.Count) ActiveSheet.Name = Format(Range("K1").Value, "売上(yyyy年mm月)") Application.DisplayFormulaBar = True WBK2.Close SaveChanges:=True Application.DisplayAlerts = True Set WBK2 = Nothing End Sub

PHP で動的ファイル出力

PHP 猛勉強中です、またお世話になりますm( __ __ )m ドキュメントルート外に置いたイメージファイルを HP からリンクして表示できるように readfile 関数を使った PHP ファイルを作成しようと思っています。 readfile.php に対して URL クエリーでhttp://hoge/readfile.php?name=hage&ext=jpg のような感じで呼び出したいと思っています。 ※ name はファイル名、 ext は拡張子です。 [readfile.php] <?php $_name = ""; $_ext = ""; if(isset($_GET["name"]) === true && isset($_GET["ext"]) === true){ // null byte 対策 $_name = delete_nullbyte($_GET["name"]); $_ext = delete_nullbyte($_GET["ext"]); // ディレクトリトラバーサル対策 $_name = str_replace(".", "", @htmlspecialchars($_name, ENT_QUOTES, "UTF-8")); $_ext = str_replace(".", "", @htmlspecialchars($_ext, ENT_QUOTES, "UTF-8")); }else{ exit(); } $_file_path = "/home/xxx/img/" . $_name . "." . $_ext; // ファイル存在確認 if(file_exists($_file_path) === false){ exit(); } // MimeType 取得 $_ext_type = substr($_file_path, -3); $_mime_type = ""; if(strcasecmp($_ext_type, "jpg") === 0){ $_mime_type = "image/jpeg"; _out_file($_file_path, $_mime_type); }else{ exit(); } ///////////////////////////////////////////////// // ファイル出力 function _out_file($file_path, $mime_type) { // ファイル名取得 $_fname = @basename($file_path); // ファイルストリーム取得 header('Content-Type: ' . $mime_type); header("Content-Disposition: inline; filename='" . $_fname . "'"); readfile($file_path); } ///////////////////////////////////////////////// // null byte 除去メソッド function delete_nullbyte($str) { if(is_array($str) === true){ return ""; } return str_replace("\0", "", $str); } ?> 色々作業を進めるうちに「null byte 攻撃」や「ディレクトリトラバーサル攻撃」などの言葉が耳に入ってきてセキュリティ的に不安を感じています。自分なりに調べて上記のようなコーディングをしましたが、果たして問題が無いのか、それとももっとたくさん考えなくてはならないのか、先輩方の意見が聞きたく質問させていただきました。よろしくお願いしますm( __ __ )m

excel vbaで今開いたばかりのファイルのパスを取得したい

お世話になっております excelで「今開いたシート名までのパス」を取りたいのですが、方法がわかりません現在 For FileNo = 1 To .FoundFiles.Count（あるフォルダの中にある） *************** For intNum = 1 To intSC（ファイルの中のシートを端から開いて作業する） *************** というようにfor nextであるファイルのあるシートを指定して作業するようになっていますいったん、別のファイルを選択してからまたこの開いたシートに戻る必要があるため、この直前に開いたシートのパスが必要なのです「ThisWorkbook.Path」などではコードが書いてあるファイルのパスになってしまいますどうか教えていただけると大変助かります宜しくお願いします

他のフォルダにあるファイルからユーザーフォーム表示

現在（1）の方法でやってますが、これを（2）の方法でユーザーフォームを表示したいです。この方法するためのコードを教えてほしいです。超初心者なので具体的に教えてほしいです。（1）デスクトップにフォルダ「Ａ処理」があり、開くとＢ.xlsm とＣ.xlsm　二つのファイルがあり、Ｃ.xlsm　を選ぶと同時にユーザーフォームが開きます。（2）デスクトップにフォルダ「Ａ処理」があり、開くとＢ.xlsm とフォルダ「Ａ計算」があります。フォルダ「Ａ計算」の中に、Ｃ.xlsm　があります。Ｂ.xlsm を選ぶと、ユーザーフォーム（表紙）が表示され、その中のコマンドボタンを押すと、フォルダ「Ａ計算」の中のＣ.xlsm　が表示されますが、ユーザーフォームは、ひらきません。そのコマンドボタンには、次のコードが入っています。 Private Sub CommandButton96_Click() A表紙.Hide Workbooks.Open Filename:=ThisWorkbook.Path & "\Ａ計算\Ｃ.xlsm" load UserForm1 UserForm1.Show Sheets(1).Select End Sub

ＶＢＡで対象となる月の数を出す方法を教えて下さい。

2009.12.21～2010.1.20と入力された場合、結果2 2009.4.1～2009.4.30と入力された場合、結果1 のように対象となる（足かけ月数）月数を出す方法を知りたいのです。下記コードのように変数Ａ、ＢにVariant型で入力してもらい（Variant型でないと困る理由があるので）それをDate型に変換したり、またVariant型に戻したり（必要があり）しながら、myOpenFileNamesにMypath & MyFileを順次追加すべく進めたいのですが、Mcntを出せずにいます。 Month(B)-Month(A)では12月と1月で不具合が出るし‥ 期間が3か月以上の場合もあります。なにかシンプルなのがありそうなので半日調べたのですが解りませんでした。皆様、お助け下さいませ。ここまで省略 '●請求対象期間の入力 A = Application.InputBox("請求対象期間（開始日）を入力してください。", "開始日", "2009.12.21", Type:=2) If A = False Then MsgBox " Cancel ボタンが押されました" Exit Sub End If On Error GoTo OWARI3 A = CDate(Replace(A, ".", "/")) On Error GoTo 0 B = Application.InputBox("請求対象期間（締め日）を入力してください。", "締め日", Replace(Format(DateAdd("d", -1, DateAdd("m", 1, A)), "yyyy/mm/dd"), "/", "."), Type:=2) If B = False Then GoTo OWARI End If On Error GoTo OWARI3 B = CDate(Replace(B, ".", "/")) On Error GoTo 0 If A > B Then MsgBox A & "～" & B & "　は請求日と締め日が逆転してます。", vbOKOnly + vbCritical, "最初からやり直して下さい。" GoTo OWARI End If D = B - A msgRec = MsgBox(A & "～" & B & "分でよろしいですか？", vbOKCancel + vbQuestion, "対象は" & D + 1 & "日分です") If msgRec = vbCancel Then MsgBox " Cancel ボタンが押されました" Exit Sub End If Mcnt = ●○○○●　　　　　　　　←ここを出す方法を知りたいのです。******************************** ReDim BN(1 To Mcnt) For i = 1 To Mcnt BN(i) = Replace(Format(DateAdd("m", i - 1, A), "yyyy/mm"), "/", ".") Mypath = ThisWorkbook.Path & "\明細書一覧" & BN(i) & "月" MyFile = "\明細書一覧" & BN(i) & "月.xls" myOpenFileNames.Add (Mypath & MyFile) Next i 以下略

access クエリ内容のテキストボックスへの表示について

月単位で集計した売り上げのクエリの前月分をテキストボックスに表示したいのですがどのようにすればよいでしょうか？自分なりにがんばってみたのですがうまくできませんでしたTT =Format(DLookUp("[売り上げ]","[売り上げ集計クエリ]","[売り上げ集計クエリ]![月]=" & Format(DateAdd("m",-1,Now()),"yyyy/mm")),"#,##0\円") 真っ白で何も表示されません… よろしくおねがいします。

VBAによるカレントフォルダのファイルを検索し開く

カレントフォルダ内にファイル(コ―ド.xls)を見つけ開き、無ければＭＳＧ表示したい。どのように、したらいいですか？考えているのは、 Application.DefaultFilePath = ThisWorkbook.Path If ??? Then Workbooks.Open "コード.xls" else msgbox (ThisWorkbook.Path & "にコード.xlsを置いて下さい。") Exit sub end If です。この？？？の部分を教えて頂きたいと思います。よろしくお願いします。

ExcelVBAで翌月のファイル名取得