常連

古いDBからExcelVBAでExcelにレコードを書き込むツールを作ってみたのですが、かなり重く悪戦苦闘しています。

現場のプロのみなさんはどう対応されてるかお伺いしたいです。

【状況】
2005年に作成されたAccess2000形式の拡張子「.mdb」のデータベースで、再構築した方が早そうなのは重々承知なのですが、他部署の営業が使ってるということでDBの再構築が叶わない状況です。
※Accessは32bitの2019版。win10の32bit。共有ドライブ上での使用。
※自身は1部署の効率化ツールを作成するために派遣で常駐しています

【ExcelVBA実行時の状況】
・初回の実行が4，5分かかります。しかし、2回目以降は数秒で該当のレコードをExcelシートに書き出すことができます。

・上記はaccessを開いた状態です。開いていないと、2回目以降も遅いです。アクセスを開いてクエリ実行完了までに5分くらいかかります。

【なぜ、実行準備が整うまで時間がかかるツールを使うのか】
2回目以降は数秒で取得できるため、処理件数（Excelのリストシート）が多いほど手動でやるよりも早く終わるからです。
※該当の顧客レコードを取得し、整形・加工して印刷とPDF保存を行うツールです

【ExcelVBA側のドライバ】
AIに聞いたところ、12.0の方がいいよってことなので、それを使ってます。
AI「Microsoft.Jet.OLEDB.4.0 は公式にはサポート終了しているため、可能であれば Microsoft.ACE.OLEDB.12.0 を使うのが推奨されます。
32bit 環境でも、Access Database Engine 2010 (32bit版) をインストールすれば、以下のように ACE.OLEDB.12.0 を使うことができます。」

【やってみたこと】
DBの最適化のみ（無駄クエリ、無駄テーブル等の削除行為は他部署のツールだからできない）

【DBの様態】
実際にデータが入っているDBと、フォームがあるDB（リンクテーブル）は分割されている

【知りたいこと】
経験豊富なプロの方たちはもし上記の状況だった場合、どうされますか？？
この状況は詰んでいますでしょうか？
これ以上やりようが無いか確かめたく質問させていただきました。

【上記の状況を要約】
勝手にDB再構築できない、レポートのレイアウトや、フォームの機能変更はできない。レコードを取得するのみならず更新作業もある。でも、事務作業に時間とられたくないから何とかならないかという依頼を受けている。




20年前に作られた古いAccessDBについて

## テーマ、知りたいこと

皆さんはどのような形式でファイルの管理やディレクトリの管理をしデータを管理しているのでしょうか？
自分は最近、PCのディレクトリを整理したり個人のスマホのメモ帳でメモっていた内容すべてをスプレッドシートに移行したりしていました。
特にディレクトリについては、決まったテンプレートもなく開発で様々なソフトを使っているとuser(ログイン名)のディレクトリにたくさん不要なファイルが作られたりして行きますよね。
そこでmyFolder的なのを作って
project,社内情報, 報告書、toolなどのフォルダを作っています。

メモについてはプログラミングに関して言えば
対象, 概要, メモ
のような列を持ったスプレッドシート状のテーブルを作成して、対象には言語やソフトウェアが何かを書いて管理しています。

また、こういった情報って業務上で学べるものなんでしょうか？新卒で採用された経験がないので新人研修的なものもなく、どのように皆さん考えておられるのか不思議です。

## 背景、状況

twitterで
「今新入社員にひと言伝えるなら、「すべての情報を基本mdファイルで管理しよう」ですね」
という内容の投稿が2,000回以上いいねされていました。

また、友人から「エンジニアだったりパソコンに詳しい人はオフィスソフトじゃなくてmdを使うのか？」と質問され、自分の考えが特殊なのもあり皆さんのご意見をお伺いしたいと思いました。

mdって使いづらい感じがするんですが、そんなにいいものでしょうか。
段落を自分で考えねばならず、ファイル毎の管理になるのでデータ管理としては見通しもよくありません。
人に見せる用の使い捨てであればわかりますが、すべての情報をと記載されていますしmdってデータの管理の側面で使い道あるのでしょうか。
md以外の形式からmdとしてデータを出力するプログラムはかけそうですが、逆は厳しい感じもします。

## 補足
mdだけに話題を絞ると内容がなさそうなので、データ管理全般についてもお伺いしようかと思いました。
意見交換の使い方がいまいち分かっていないのですが。
使い方がどこに書いているのか定かではありませんでしたが、とりあえず以下の内容を読むに問題無さそうと判断しています。
https://blog.teratail.com/entry/release-discussion

## 質問後追記
投稿前に気づけよって話ですがgitでバージョン管理しているなら、mdとクラウドサービス一択になりそうですね。。。
自分のところではsvnを使用しているので、完全に失念していました。。。
そう考えると使い分けの考えについても完全に納得いきます。。。

データの管理、ディレクトリやファイル形式について

```excel
= YEAR(TODAY()) & "年" & MONTH(TODAY())-1 "月"
```
と書いている状態で、
このままだと来年の１月には2021年12月と表示されてしまうと思います。
関数の間に文字が入ってしまっている状態で
ひと月前の情報の2020年12月と表示させることは可能でしょうか。

よろしくお願いいたします。

関数で先月を表示させたい

### 実現したいこと
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2025-04-23/7f0f9e60-9917-45a5-8624-97d63df276fd.png)

大項目ごとの合計数字を代入したい。該当する列に。
添付の画像の①30行目と②40行目のカテゴリー別の合計行に、①には、23行目と29行目の小項目の合計を、②には、33行目と39行目の小項目の合計を該当する列に代入したい。
小項目の合計だけをうまく取得して、カテゴリー別の合計行に代入できないかと考えています。


### 発生している問題・分からないこと
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2025-04-23/74a84326-37e7-49c5-b30d-b46257bc37c2.png)

＜困っていること＞
合計する行は固定の行ではないので、「合計」という文字列のある行を取得して、合計するようにしていますが、
①だけならうまくいくのですが、
②の合計を算出する際に、①の下の行からカウントしなければならないのですが（1行目からだと二重計上になるため）、それがうまくいきません。
なぜか、②の行には0が代入されてしまいます。



### 該当のソースコード

```
※試しに以下のコードで一つの列で合計値を出したのですが、問題なく算出され代入されます。

Sub CalculateSpecificSum()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim sumRow As Long
    Dim totalSum As Double
    Dim currentRow As Long
    
    ' シートを指定
    Set ws = ThisWorkbook.Sheets("収益状況")
    
    ' 合計値を初期化
    totalSum = 0
    
    ' A列の最初の「合計」行を取得
    sumRow = ws.Columns("A").Find(What:="合計", LookAt:=xlPart, MatchCase:=False).Row

    ' A列の「合計」行までループ
    For currentRow = 6 To sumRow - 1 ' 合計行の直前まで
        ' B列が「合計」の場合のみ処理
        If ws.Cells(currentRow, "B").value Like "*合計*" Then
            ' 12列目（L列）の値を加算
            totalSum = totalSum + ws.Cells(currentRow, 12).value
        End If
    Next currentRow

    ' 合計値をA列の「合計」行のL列に代入
    ws.Cells(sumRow, 12).value = totalSum
    
    MsgBox "指定された合計の計算が完了しました！", vbInformation
End Sub


※以下は、各列ごとに合計値を算出するようにしているはずなのですが、0となり算出されません。

Sub ProcessRevenueSums()
    Dim ws As Worksheet
    Dim sumRow As Long
    Dim totalSum As Double
    Dim currentRow As Long
    Dim colIndex As Variant
    Dim sumColumns As Variant
    
    ' シートを指定
    Set ws = ThisWorkbook.Sheets("収益状況")
    
    ' 合計する列を指定
    sumColumns = Array(12, 13, 14, 18, 19, 20, 21, 24, 25, 26, 27, 28, 29, 30, _
                       34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48)

    ' A列の最初の「合計」行を取得
    sumRow = ws.Columns("A").Find(What:="合計", LookAt:=xlPart, MatchCase:=False).Row

    ' 各列を順次処理
    For Each colIndex In sumColumns
        ' 合計値を初期化
        totalSum = 0
        
        ' A列の「合計」行までの範囲をループ
        For currentRow = 6 To sumRow - 1 ' 合計行の直前まで
            ' B列が「合計」の場合のみ処理
            If ws.Cells(currentRow, "B").value Like "*合計*" Then
                ' 該当列の値を加算
                totalSum = totalSum + ws.Cells(currentRow, colIndex).value
            End If
        Next currentRow

        ' 合計値をA列の「合計」行に代入
        ws.Cells(sumRow, colIndex).value = totalSum
    Next colIndex
    
    MsgBox "指定された列に順次合計を代入しました！", vbInformation
End Sub
```

### 試したこと・調べたこと
- [ ] teratailやGoogle等で検索した
- [x] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [ ] その他

##### 上記の詳細・結果
上記に記載のとおりですが、どうしてもうまくいきません。
Excelの関数でしたら実現できると思うのですが、該当する行が変わるので、その都度入力する手間もかかるため、VBAで実現できないかと考えています。
どなたか力を貸していただければ幸いです。
よろしくお願いいたします。

### 補足
特になし

VBAで、複数行あるカテゴリーごとの合計値の算出ができない

### 実現したいこと
Excel VBAを用いて、同じ文面のメールをリスト化された複数のアドレスと宛名を取得し送信したいです。
メール本文の中の、会社名や宛名を個別に置き換えたいです。
※ネットで拾ったコードを使わせてもらっています

### 発生している問題・分からないこと
マクロを実行すると、
「実行時エラー'62': ファイルにこれ以上データがありません。」
というエラー出て、一件しかメールを送信できません。

### エラーメッセージ
```error
実行時エラー'62': ファイルにこれ以上データがありません。
```

### 該当のソースコード

```
'プログラム0｜変数宣言の指定
Option Explicit
 
'プログラム1｜プログラム開始
Sub SendMails()
 
    'プログラム2｜変数設定
    Dim mailaddress As String
    Dim subject As String, mailbody As String
    Dim username As String, tsuchi As String
    Dim ws As Worksheet
    Dim cmax As Long
    Dim i As Long
    Dim txtfile As String, txtpath As String, attachedfile As String
    Dim txt As TextStream
    
    'プログラム3｜FileSystemObjectの設定
    Dim fs As Scripting.FileSystemObject
    Set fs = New Scripting.FileSystemObject
      
    'プログラム4｜テキストファイルの情報の取得
    txtfile = "【パソコンスキルの教科書】登録ありがとうございます.txt"
    txtpath = ThisWorkbook.Path & "\" & txtfile
    Set txt = fs.OpenTextFile(Filename:=txtpath, IOMode:=ForReading)
      
    'プログラム5｜メール件名の取得
    subject = Split(txtfile, ".")(0)
      
    'プログラム6｜添付ファイルを取得
    attachedfile = ThisWorkbook.Path & "\添付ファイル.jpg"
      
    'プログラム7｜ワークシート設定
    Set ws = Worksheets("メールリスト")
 
    'プログラム8｜各シートの記載情報を取得
    cmax = ws.Range("A65536").End(xlUp).Row
              
    'プログラム9｜Outlookメール送信用の変数設定
    Dim OutlookObj As outlook.Application
    Dim myMail As outlook.MailItem
    Set OutlookObj = CreateObject("Outlook.Application")
 
    'プログラム10｜シート「メールリスト」の情報を取得
    For i = 2 To cmax
        
        'プログラム11｜F列のON/OFFでメール通知設定を決定
        tsuchi = ws.Range("E" & i).Value
        If tsuchi = "ON" Then
        
            'プログラム12｜メール本文とメールアドレスを取得
            username = ws.Range("C" & i).Value
            mailbody = Replace(txt.ReadAll, "{名前}", username)
            mailaddress = ws.Range("D" & i).Value
            
            'プログラム13｜Outlookメールを作成
            Set myMail = OutlookObj.CreateItem(olMailItem)
            
            'プログラム14｜メール内容を設定
            myMail.BodyFormat = 3
            myMail.To = mailaddress
            myMail.CC = "fastclassinfo@gmail.com"
            myMail.subject = subject
            myMail.Body = mailbody
    
            'プログラム15｜添付ファイルがあればメールに添付
            If attachedfile <> "" Then
                myMail.Attachments.Add (attachedfile)
            End If
            
            'プログラム16｜メール送信
            myMail.Display 'メール表示(ここでは誤送信を防ぐために表示だけにして､メール送信はしない)
            myMail.Send 'ここをコメントアウトすることでメール送信しないことも可能
            ws.Range("F" & i).Value = "送信完了：" & Now()
            
            'プログラム17｜オブジェクト解放
            Set myMail = Nothing
        End If
    Next
    Set OutlookObj = Nothing
 
'プログラム18｜プログラム終了
End Sub
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [x] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [ ] その他

##### 上記の詳細・結果
teratailで同様の質問を見つけましたが、回答を見てもどのように修正すればいいかわからず、再度質問を上げさせていただいています。

### 補足
https://teratail.com/questions/370887（過去の同様のご質問）

VBAで複数Outlookメールを個別作成し一斉送信

### 実現したいこと
Excelで、B2セルが入力されたらA2セルに「1」と表示され、B2が空白ならA2に何も表示されないようにしたい。
同様に、B3セルが入力されたらA3セルに「2」と表示され、B3が空白ならA3に何も表示されないようにしたい。
同様に繰り返し、B列が入力されたら連番がA列に表示されるようにするにはどうしたらいいですか

### 発生している問題・分からないこと
同上同上同上同上同上



### 該当のソースコード

```
特になし
```

### 試したこと・調べたこと
- [ ] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [x] その他

##### 上記の詳細・結果
A列になにかしら式を書かないといけないのはわかった

### 補足
特になし

A列に連番を作成したい

### 実現したいこと
・セル「G4」から「G13」に、関数を使用して、「得点」が「７０点未満」の場合は「追試」、それ以外の場合は空白は表示させるようにしてください。
・セル「B16」に、関数を使用して、「受験人数」を表示しなさい。ただし、セル「E4」」から「E14」に得点が入力されている数値の個数を「受験人数」とする。
・セル「H4」から「H13」に、関数を使用して、「勤続年数」が「５年以上」で、かつ「得点」が「平均点以上」であれば「受講」、それ以外は空白が表示されるように設定してください。

### 発生している問題・分からないこと
どういう風にやったらいいかわからないです。



### 該当のソースコード

```
特になし
```

### 試したこと・調べたこと
- [ ] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [x] その他

##### 上記の詳細・結果
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2025-06-28/95fdb018-e18f-4fc3-8544-719a9e561985.png)

### 補足
学校の宿題で出されたんですけど、やり方がわからないです。


excel　２重関数等の問題がわからないです。

## テーマ、知りたいこと

ExcelをCOM利用しているVB6のプログラムがあるのですが
これをVB.Netにバージョンアップしたい。という話が私の所に来ています。

私は、社内で使うだけのプログラムなら、Excelマクロでいいのではと思いました。
ソースを読む限り、VBAでも事足りると感じたためです。

VBAはソースコードのバージョン管理が上手くできないと思うので
そこがネックとしてはあるのかなと思っているのですが
果たしてどうなのでしょうか。

また、.Netへの改修は、.Net Frameworkにしろ、.Net にしろ
解放処理をやたらとしないといけないのでコードが煩雑になると思っています。

また、EPPlusやClosedXMLを使うというのも手としてはあるのかなと思ってはいますが
余り使用経験がないのでよくわかっていません。

そのため、私はExcelマクロを推して提案しようかなと思っています。
皆さんならどうしますか？

## 自分で試したこと

.Netにする場合、以下がいいのかなと今は感じている所です。
ただ、これよりもExcelマクロの方がいいんじゃないかなとも思っている次第です。

以下の共通処理を作って
```VB.Net
Imports System.Runtime.InteropServices
Module Module1
    Private mListObject As List(Of Object)
    Public Sub AddComObject(rObject)
        If mListObject Is Nothing Then mListObject = New List(Of Object)
        mListObject.Add(rObject)
    End Sub

    Public Sub AllRereseComObjec()
        For i As Integer = mListObject.Count - 1 To 0 Step -1
            Marshal.ReleaseComObject(mListObject.Item(i))
        Next
        mListObject.Clear()
        mListObject = Nothing
    End Sub
End Module
```
こんな感じに使う方法です。
```VB.Net
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim objXLSApp As Object
        Dim objXLSBooks As Object 'Excel.Workbooks
        Dim objXLSBook As Object 'Excel.Workbook
        Dim objXLSSheets As Object 'Excel.Worksheets
        Dim objXLSSheet As Object 'Excel.Worksheet

        Dim objXLSCells As Object 'Excel.Range
        Dim objXLSRange As Object 'Excel.Range

        Dim tReleaseCom As New ReleaseComClass

        objXLSApp = CreateObject("Excel.Application")
        AddComObject(objXLSApp)
        objXLSBooks = objXLSApp.Workbooks
        AddComObject(objXLSBooks)
        objXLSBook = objXLSBooks.Open(TextBox1.Text, False, True)
        AddComObject(objXLSBook)
        objXLSSheets = objXLSBook.Sheets
        AddComObject(objXLSSheets)
        objXLSSheet = objXLSSheets.Item("Sheet1")
        AddComObject(objXLSSheet)
        objXLSCells = objXLSSheet.Cells
        AddComObject(objXLSCells)

        objXLSRange = objXLSCells.Item(1, 1)
        AddComObject(objXLSRange)
        objXLSRange.value = "2"

        objXLSRange = objXLSCells.Item(2, 1)
        AddComObject(objXLSRange)
        objXLSRange.value = "2"

        If System.IO.File.Exists(TextBox2.Text) Then
            System.IO.File.Delete(TextBox2.Text)
        End If
        objXLSBook.SaveAs(TextBox2.Text)

        objXLSBook.Close
        objXLSApp.Quit

        AllRereseComObjec()

    End Sub
```

オブジェクトを参照するたびに、それを追加していって
最後に逆順でリリースするだけなんですけど
最後に、順番を意識してリリースするのを列挙するのが大変だったり
同じ変数名を使いまわしたい場合、最後にリリースを列挙するより良いのかなと思った次第です。
