現在業務で、フォルダ内のすべてのExcelブックに対し、
先月分の数字の集計をするためのマクロを使用しています(下記VBA参照)
ところが、2月分を取得したあたりから、1日ずれて取得されるようになってしまいました。
例)3/1~3/31を取得したいのに、2/28~3/30まで取得、集計されてしまう
2月が28日までだからとしか考えられないのですが、
ほかに原因と、対処法が思いつかず・・何が考えられるかもしお分かりの方いらっしゃいましたら、お願いいたします。
以下は使用しているVBAです。
Sub 先月分集計()
Dim OE, wb
Dim dRange As Range, r As Range
Dim myFolder As String, Filename As String
Dim d1 As String, d2 As String
With Application.FileDialog(msoFileDialogFolderPicker)
If Not .Show Then Exit Sub
myFolder = .SelectedItems(1) & "\"
End With
Set dRange = ActiveSheet.Range("B1:B3")
Set OE = CreateObject("Excel.Application")
d1 = ">" & CStr(DateSerial(Year(Date), Month(Date) - 1, 0))
d2 = "<" & CStr(DateSerial(Year(Date), Month(Date), 1))
Filename = Dir(myFolder & "*.xlsx")
Do While Filename <> ""
Set wb = OE.Workbooks.Open(myFolder & Filename, 3, True)
Set r = wb.ActiveSheet.Columns(1)
dRange(1).Value = r.Worksheet.Name
dRange(2).Value = OE.WorksheetFunction.SumIfs(r.Offset(, 1), r, d1, r, d2)
dRange(3).Value = OE.WorksheetFunction.SumIfs(r.Offset(, 2), r, d1, r, d2)
wb.Close False
Set dRange = dRange.Offset(, 1)
Filename = Dir()
Loop
OE.Quit
MsgBox "終了しました"
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでActiveDirectoryのユーザ...
-
Excelで勤怠管理をしたいです。...
-
VB.NETで DataRow()を利用して...
-
imgctl.dllを使って読み込んだ...
-
VBA リストボックス複数選択か...
-
VBA:小数点以下の数字を取得で...
-
自動的に高さ指定していないt...
-
エクセルVBAで複数選択できるよ...
-
DataGridView 複数選択で行番...
-
asp.netでtextboxの値を取得
-
IFRAME内のURLを取得したです。
-
ListView 項目の選択/選択解除...
-
Flexgridで選択行の列の値を取...
-
GetLongPathName関数について
-
整数の桁数が取得できません
-
Google Apps Script で、Web上...
-
利用者側のMACアドレスを取得し...
-
フォルダ一覧取得の設計について
-
リクエストからArrayListのデー...
-
ListViewで複数選択された項目...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでActiveDirectoryのユーザ...
-
VB.NETで DataRow()を利用して...
-
VBA:小数点以下の数字を取得で...
-
ListView 項目の選択/選択解除...
-
like演算子内に変数って使えな...
-
count(*)で取得した値をJAVAの...
-
利用者側のMACアドレスを取得し...
-
データ数をカウントしたいのですが
-
JavaScriptでWindowsログオンID...
-
ListViewで複数選択された項目...
-
Flexgridで選択行の列の値を取...
-
エクセルVBAで複数選択できるよ...
-
VBA リストボックス複数選択か...
-
getParameter と getAttribut...
-
Excel VBA でログインしてい...
-
VBScriptで数値にコンマを付け...
-
Spreadの選択行の取得について
-
コンボボックスの表示は最大何行?
-
コンボボックス表示文字列を取...
-
VB .netにて現在時刻+1時間後...
おすすめ情報