常連

注目の的

社会貢献

質問力

### 実現したいこと
初めまして。VBA触りたての初心者です。
参考サイトを見ながら、一つのエクセルシートのデータを項目ごとに分けるVBAを組みました。(正常に稼働します)処理に時間がかからこともあり、おおよその終了時間や処理のパーセントが分かればいいなと思い、方法を探していました。その中でプログレスバーというものがあるとのことで、使用したいと思ったのですが、プログレスバーを動かすためのコードの書き方やシート分けのVBAのどの部分にプログレスバーのマクロを組み込めばいいかわからず困っています。ご助力頂ける方がいましたら嬉しく思います...!
拙い内容で申し訳ございません。少しでもお力添え頂けましたら嬉しいです。よろしくお願いいたします！

(シート分けの参考：https://fastclassinfo.com/entry/vba_sheet_tenki/）
★実現したいこと
・参考先のようなバーを作成したい　
・大体の終わる時間を処理中に表示させたい
・バーが伸びていくようにしたい（ラベルを使用する）
   ・完了のメッセージボックスに、最終的な処理時間をのせたい
プログレスバーの参考：https://qiita.com/hetare001/items/ec062f4e9d3e91c9d2ee


### 発生している問題・分からないこと
参考サイトのようなプログレスバー(ラベルが伸びるように見えるもの)を作成したく、コードをどのように書けばいいか教えて欲しい
②VBAのどの部分に、プログレスバーのコードを加えればいいかわからない



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

```Excel
'プログラム0｜変数設定の指定
Option Explicit

'プログラム1｜プログラム開始
Sub CreateSheets()

　Appication.ScreenUpdating = False

    'プログラム2｜シート設定
    Dim ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = ThisWorkbook.Worksheets("マクロ")
    Set ws2 = ThisWorkbook.Worksheets("template")

    'プログラム3｜最終行を取得
    Dim cmax1 As Long
    cmax1 = ws1.Range("AV1048576").End(xlUp).Row

    'プログラム4｜「マクロ」シートをコピーして重複削除
    Dim ws3 As Worksheet
    ws1.Copy after:=ThisWorkbook.Worksheets(Worksheets.Count)
    Set ws3 = ThisWorkbook.ActiveSheet
    ws3.Range("A:AV").RemoveDuplicates Columns:=Array(48), Header:=xlYes

    'プログラム5｜プログラム4で重複削除したシートの最終行を取得
    Dim cmax2 As Long
    cmax2 = ws3.Range("AV1048576").End(xlUp).Row

    'プログラム6｜コピーしたシートを並び替え
    With ws3.Sort
        .SortFields.Clear
        .SortFields.Add Key:=ws3.Range("AV1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange ws2.Range("A2:AV" & cmax2)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    'プログラム7｜重複削除、並び替えしたシートの2行目から最終行まで処理
    Dim i As Long
    For i = 2 To cmax2
        Dim sample As String
        sample = ws3.Range("AV" & i).Value

        'プログラム8｜「template」シートをコピー
        Dim ws4 As Worksheet
        ws2.Copy after:=ThisWorkbook.Worksheets(Worksheets.Count)
        Set ws4 = ThisWorkbook.ActiveSheet

        'プログラム9｜コピーした「template」シートの名前を変更
        ws4.Name = sample

        'プログラム10｜転記先の行数をn=2で初期化
        Dim n As Long: n = 2

        'プログラム11｜「nouhin」シートのA列がtorihikiと一致したら転記
        Dim j As Long
        For j = 2 To cmax1
            If sample = ws1.Range("AV" & j).Value Then
                ws4.Range("A" & n & ":AV" & n).Value = ws1.Range("A" & j & ":AV" & j).Value
                n = n + 1
            End If
        Next

        'プログラム12｜オブジェクト解放
        Set ws4 = Nothing
    Next

    'プログラム13｜重複削除、並び替えしたシートを削除
    Application.DisplayAlerts = False
    ws3.Delete
    Application.DisplayAlerts = True

    'プログラム14｜新しいエクセルファイルとして保存
    Dim newfilename As String
    newfilename = Format(Date, "yyyy-mm-dd") & "_" & ThisWorkbook.Name
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & newfilename
    Application.DisplayAlerts = True

　MsgBox　"シート分けが完了しました", vbInformation
 Application.ScreenUpdating = True

'プログラム15｜プログラム終了
End Sub
```

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

##### 上記の詳細・結果
シート分けのマクロは正常に稼働するようになりました！
プログレスバーの作成方法はなんとなく分かりましたがコードがうまく出来ず、プログレスバーを表示させること、動かすことができませんでした。

### 補足
◎シート分けのマクロの組んでいるエクセルブックについて
　・シートは３種（参照、マクロ、template）
　・AV列は　参照　のシートからVLOOKUPでデータを引っ張ってきている


VBAの進捗を可視化したい(プログレスバー)

###前提・実現したいこと
EXCEL VBAで、Sheet1[Data]に元データを持ち、
必要な情報だけを抽出して、Sheet2に表示する機能を作っています。
また、Sheet2で編集した情報を使い、
Sheet1[Data]を更新するような仕組みにもなっています。

データの呼び出し・更新にはADODBを利用して、
シートをデータベースのようにSQLを発行して操作していますが、
データベースへの更新のタイミング「dbCmd.Execute」で
下記のメッセージが出てしまいます。

※更新データは150行くらいありますが、エラーが発生するのは
 毎回決まった行です。（データ内容は全て同じ）

何が原因なのでしょうか?


###発生している問題・エラーメッセージ

```
実行時エラー'-2147467259(80004005)':

他のユーザが同じデータに対して同時に変更を試みているので、プロセスが停止しました。
```

###該当のソースコード
```ここに言語を入力
Public Function updDataView() As Boolean
    
    Dim dbCon As Object
    Dim dbCmd As Object
    Dim strSQL As String
    Dim tgtRow As Long

    Set dbCon = CreateObject("ADODB.Connection")
    Set dbCmd = CreateObject("ADODB.Command")
    dbCon.Provider = "Microsoft.Ace.OLEDB.12.0"
    dbCon.Properties("Extended Properties") = "Excel 8.0;"

    dbCon.Open ThisWorkbook.FullName
    dbCmd.ActiveConnection = dbCon
    
    For tgtRow = 1 To Range("CHKVIEW").Rows.Count
        
        strSQL = ""
        strSQL = strSQL & vbCrLf & "UPDATE [DATA$] SET"
        
        'BLNO(SO No.)
        strSQL = strSQL & vbCrLf & "  A0001 = 'A'"
        strSQL = strSQL & vbCrLf & ", A0002 = 'B'"
        strSQL = strSQL & vbCrLf & ", A0003 = 'C'"
        strSQL = strSQL & vbCrLf & ", A0004 = 'D'"
        strSQL = strSQL & vbCrLf & ", A0005 = 'E'"
        strSQL = strSQL & vbCrLf & ", X9002 = now()"
        strSQL = strSQL & vbCrLf & "WHERE A0000 = '1'
                
        dbCmd.CommandText = strSQL
        dbCmd.Execute
    Next tgtRow
    
End Function
```

###試したこと
    dbCon.Provider = "Microsoft.Ace.OLEDB.12.0"
の部分を、
    dbCon.Provider = "Microsoft.Jet.OLEDB.4.0"
にすると、正常に動作します。

また、エラー画面でデバッグへ移ると、
「dbCmd.Execute」で停止していますが、
F5を押すと、そのまま正常に継続処理可能です。

ループの開始前と後にトランザクションをかませてみたり、
更新時点にWaitを入れてみたりしましたが、改善には至りませんでした。

###補足情報(言語/FW/ツール等のバージョンなど)
Excel2010 32ﾋﾞｯﾄ版を使用。

EXCEL自ブック内のシートに対するADODB操作について【排他エラー】

### 実現したいこと
該当ソースファンクション内の「qry.Delete (True)」処理が環境によってエラーとなる原因または回避策が知りたい。

### 発生している問題・分からないこと
同じ環境（OFFICEはMICROSOFT365,同じ参照設定）の異なるPCでクエリの削除を実行すると１台は処理できるが、もう１台では以下のエラーが発生する。
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2024-01-09/6261475d-dc3d-4e5b-9d39-a6dcdcbeb45f.jpeg)


### エラーメッセージ
```error
EXCEL VBAで作成したファンクションを実行すると、環境によって「qry.Delete (True)」の部分で以下のエラーが発生する。
エラー番号：445
説明：オブジェクトはこの動作をサポートしていません。
```

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

```
Function DeleteQueryTable(ByVal queryname As String) As Boolean
    Dim wb As Workbook
    Dim qry As WorkbookQuery
    Dim tempquery As String
    
    'ワークシートに接続
    Set wb = ThisWorkbook
    '削除の実行
    For Each qry In wb.Queries
        'クエリ名を取得する
        tempquery = qry.name
        '判定する
        If tempquery = queryname Then
            'クエリを削除する
            qry.Delete (True)
            DeleteQueryTable = True
            Exit Function
        End If
    Next
End Function
```

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

##### 上記の詳細・結果
teratailやGoogleで検索しましたが、情報が全くありませんでした。また、ソースコードを色々と変更しましたが、同じでした。
環境も一通り調べましたが、差異は発見できませんでした。

### 補足
特になし

WorkbookQuery.Delete (True)が環境によってエラーとなる原因について

私はプログラミングの経験はありませんが、SNSでスクレイピングに関する話題を目にすることがあり、その違法性について気になりました。そこで、以下の点について教えていただきたいです。

- スクレイピングとは、「ブラウザで見える情報を自動的に取得する」という理解で合っていますか？
- たとえば、ニュースサイトやECサイトの情報をスクレイピングで収集する行為は、著作権や利用規約に違反する可能性があると感じています。このような行為を安易に行っても問題はないのでしょうか？SNS上でスクレイピングを行ったことを投稿している人を見かけることがありますが、あれは本当に問題ないのでしょうか。もし見つかった場合、罰金や逮捕などの法的なリスクはあるのでしょうか？
- 少し不適切な前提かもしれませんが、仮にスクレイピングを行った場合、サイト運営者に検知されるリスクはあるのでしょうか？技術的にバレなければ実行可能であるようにも思えますが、そうした行為が禁止されていることを理解していても、検知されないのであれば実際に行ってしまう人もいるのではないかと感じています。


一般的なエンジニアとしての視点からご助言いただけますと幸いです。よろしくお願いいたします。

スクレイピングとは何か、違法性について

### accessで256列以上のデータをCSVにエクスポートしたい

**困っていること：** あるシステムにデータを取り込むためのCSVファイルを作成しようとしています。そのシステムの取り込みファイルは276列ありますが、accessではテーブルに255列までしか作成できないため、データ取込み用CSVファイルが作成できません。

**やったこと：** とりあえず作成できる列まで1つのテーブルで作成し、残りの列はVBAでCSVに直接書き込みに行くような形でヘッダだけは276列まで作ることができました。

作ったものは以下です。やりたいことがご理解いただきやすいかと思い念のために掲載しておきます。
お知恵を拝借できますと幸いです。どうぞよろしくお願い致します。

```ここに言語を入力
Private Sub ファイル出力_Click()
  
   DoCmd.SetWarnings False
  
  DoCmd.OpenQuery "データ追加"
    
  
  DoCmd.TransferText _
    TransferType:=acExportDelim, _
    TableName:="T_T", _
    filename:="V:\フォルダ\T" & ".csv", _
    HasFieldNames:=True
    
      
' Private Sub ExTextWrite()
'    Dim fno As Integer
'    fno = FreeFile
'    TableName = "T_T"
'    Open "V:\フォルダ\T.csv" For Append As fno
'    Print #fno, TableName
'    Close fno
'End Sub


Dim xlsApp As Object
Dim xlsbook As Object
Dim xlsSheet As Object

Dim filename As String

 

filename = "V:\フォルダ\T.csv"

Set xlsApp = CreateObject("Excel.Application")

xlsApp.DisplayAlerts = False 

Set xlsbook = xlsApp.Workbooks.Open(filename)

Set xlsSheet = xlsbook.worksheets(1)


With xlsSheet

'行を削除
.Rows(1).Delete

End With

'保存
xlsbook.Save

xlsApp.Application.Quit

Set xlsSheet = Nothing
Set xlsbook = Nothing
Set xlsApp = Nothing


'ヘッダ挿入
    
Const ForReading = 1
Const ForWriting = 2
Dim objFSO As Object
Dim objFile As Object
Dim strContents As String
Dim strFirstLine As String
Dim strNewContents As String
Dim strPath As String

strPath = "V:\フォルダ\T.csv"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strPath, ForReading)
 
strContents = objFile.ReadAll
objFile.Close
 
strFirstLine = "1" & "," & "2" & "," & "3" & "," & "4" & "," & "5" & "," & "6" & "," & "7" & "," & "8" & "," & "9" & "," & "10" & "," & "11" & "," & "12" & "," & "13" & "," & "14" & "," & "15" & "," & "16" & "," & "17" & "," & "18" & "," & "19" & "," & "20" & "," & "21" & "," & "22" & "," & "23" & "," & "24" & "," & "25" & "," & "26" & "," & "27" & "," & "28" & "," & "29" & "," & "30" & "," & "31" & "," & "32" & "," & "33" & "," & "34" & "," & "35" & "," & "36" & "," & "37" & "," & "38" & "," & "39" & "," & "40" & "," & "41" & "," & "42" & "," & "43" & "," & "44" & "," & "45" & "," & "46" & "," & "47" & "," & "48" & "," & "49" & "," & "50" & "," & "51" & "," & "52" & "," & "53" & "," & "54" & "," & "55" & "," & "56" & "," & "57" & "," & "58" & "," & "59" & "," & "60" & "," & "61" & "," & "62" & "," & "63" & "," & "64" & "," & "65" & "," & "66" & "," & "67" & "," & "68" & "," & "69" & "," & "70" & "," & "71" & "," & "72" & "," & "73" & "," & "74" & "," & "75" & "," & "76" & "," & "77" & "," & "78" & "," & "79" _
 & "," & "80" & "," & "81" & "," & "82" & "," & "83" & "," & "84" & "," & "85" & "," & "86" & "," & "87" & "," & "88" & "," & "89" & "," & "90" & "," & "91" & "," & "92" & "," & "93" & "," & "94" & "," & "95" & "," & "96" & "," & "97" & "," & "98" & "," & "99" & "," & "100" & "," & "101" & "," & "102" & "," & "103" & "," & "104" & "," & "105" & "," & "106" & "," & "107" & "," & "108" & "," & "109" & "," & "110" & "," & "111" & "," & "112" & "," & "113" & "," & "114" & "," & "115" & "," & "116" & "," & "117" & "," & "118" & "," & "119" & "," & "120" & "," & "121" & "," & "122" & "," & "123" & "," & "124" & "," & "125" & "," & "126" & "," & "127" & "," & "128" & "," & "129" & "," & "130" & "," & "131" & "," & "132" & "," & "133" & "," & "134" & "," & "135" & "," & "136" & "," & "137" & "," & "138" & "," & "139" & "," & "140" & "," & "141" & "," & "142" & "," & "143" & "," & "144" & "," & "145" & "," & "146" & "," & "147" & "," & "148" & "," & "149" & "," & "150" & "," & "151" & "," & "152" _
 & "," & "153" & "," & "154" & "," & "155" & "," & "156" & "," & "157" & "," & "158" & "," & "159" & "," & "160" & "," & "161" & "," & "162" & "," & "163" & "," & "164" & "," & "165" & "," & "166" & "," & "167" & "," & "168" & "," & "169" & "," & "170" & "," & "171" & "," & "172" & "," & "173" & "," & "174" & "," & "175" & "," & "176" & "," & "177" & "," & "178" & "," & "179" & "," & "180" & "," & "181" & "," & "182" & "," & "183" & "," & "184" & "," & "185" & "," & "186" & "," & "187" & "," & "188" & "," & "189" & "," & "190" & "," & "191" & "," & "192" & "," & "193" & "," & "194" & "," & "195" & "," & "196" & "," & "197" & "," & "198" & "," & "199" & "," & "200" & "," & "201" & "," & "202" & "," & "203" & "," & "204" & "," & "205" & "," & "206" & "," & "207" & "," & "208" & "," & "209" & "," & "210" & "," & "211" & "," & "212" & "," & "213" & "," & "214" & "," & "215" & "," & "216" & "," & "217" & "," & "218" & "," & "219" & "," & "220" & "," & "221" & "," & "222" & "," & "223" & "," & "224" _
 & "," & "225" & "," & "226" & "," & "227" & "," & "228" & "," & "229" & "," & "230" & "," & "231" & "," & "232" & "," & "233" & "," & "234" & "," & "235" & "," & "236" & "," & "237" & "," & "238" & "," & "239" & "," & "240" & "," & "241" & "," & "242" & "," & "243" & "," & "244" & "," & "245" & "," & "246" & "," & "247" & "," & "248" & "," & "249" & "," & "250" & "," & "251" & "," & "252" & "," & "253" & "," & "254" & "," & "255" & "," & "256" & "," & "257" & "," & "258" & "," & "259" & "," & "260" & "," & "261" & "," & "262" & "," & "263" & "," & "264" & "," & "265" & "," & "266" & "," & "267" & "," & "268" & "," & "269" & "," & "270" & "," & "271" & "," & "272" & "," & "273" & "," & "274" & "," & "275" & "," & "276"


strNewContents = strFirstLine & vbCrLf & strContents
 
Set objFile = objFSO.OpenTextFile(strPath, ForWriting)
objFile.WriteLine strNewContents
 
objFile.Close



  DoCmd.RunSQL "DELETE * from T_T"
      
  MsgBox "作成完了", vbOKOnly
  
  DoCmd.SetWarnings True
  
  
End Sub
```


accessを使って256列以上のデータをCSVにエクスポートしたい

Accessでツールを開発する時の、データ抽出,更新,挿入,削除などの処理をする時の、SQL文とクエリの使い分けについて、開発に携わっている方がどうされているのか教えてください。

SQL文を自分で作成してもクエリデザインで作成しても同じ結果を得られると思いますが、皆さんはどちらを使用して開発をされていますでしょうか。
※例えば特定のテーブルのデータを抽出する時、
　VBAのコード内にSQL文(sql = "SELECT * FROM tbl_emp;")を作成し、それを実行してデータを取得する方法と、
　Access内のクエリデザインなどであらかじめ作成しておいたクエリをコード内で実行しデータを取得する方法があると思います

トランザクションが必要な処理はクエリを使用しないのはわかります。
もしトランザクションが必要で、その部分の処理SQL文で作成した場合、
そのほかの処理もクエリを使用せずに作成してしまった方が、後でソースコードを読み返す時、モジュールとナビゲーションウインドウのクエリを行ったり来たりせずに済むのではないかと思ってみたり、
はたまた、クエリを使用して開発して方が早いし楽なのかなと思ってみたりしています。
また、SQL文とクエリが混在するのにも若干の違和感があったりするのですが、そこは気にしなくてもよいのでしょうか。

みなさんは、どのようにされていますか？
また、使い分けの明確な基準はお持ちですか？
クエリしか使用しないまたは、SQLしか使用しないという方はいらっしゃいますか？


AccessVBAで開発に携わっている方、SQLとクエリの使い分けについて意見をお聞きしたいです

###前提・実現したいこと
VBAでシステムを作っているのですが、メインのプロシージャがあり、その中でCALLでプロシージャを呼び出しているのですが、呼び出したプロシージャでエラーが発生した時に、メインのプロシージャでエラー番号を受け取りエラー処理はできないでしょうか。

###発生している問題・エラーメッセージ

```
エラーメッセージ
```

###該当のソースコード
```ここに言語を入力
sub main_procedure()

on error goto エラー処理

call sub_procedure

exit sub

エラー処理:
Select Case Err.Number
Case ○○
msgbox "○○○"
case ○○
msgbox "○○○"
End Select
end sub

sub sub_procedure
ここで発生したエラーをmainで取得して処理したい
end sub

```

###試したこと
課題に対してアプローチしたことを記載してください

###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報で

エクセルVBA CALLで呼び出したプロシージャ内でのエラー処理

初歩的な質問と思いますがよろしくお願いいたします。

サブフォームを含むフォームがあります。
メインフォームにある「クリアボタン」をクリックで
入力した内容をすべてクリアしたいのですが
サブフォーム部分のクリアの仕方がわかりません。

Private Sub コマンド29_Click()

Response = MsgBox("画面をクリアしますか。", _
       vbYesNo + vbQuestion + vbDefaultButton1, "受注票")
    If Response <> vbYes Then
        DoCmd.CancelEvent
        SendKeys "{ESC}", False
        Exit Sub
    End If

  Dim ctl As Control
  
  On Error Resume Next

  For Each ctl In Me.Controls
    With ctl
      If .ControlType = acTextBox Or acComboBox Then
         .Value = ""
      End If
    End With
  Next ctl
End Sub

現在ここまではできていてメインフォームはすべてクリアになります。
サブフォーム（コンボボックス1,2,テキストボックス）も
クリアしたい場合どのようにしたらいいでしょうか？

windows10、access2019

追記
 １（メイン）対多（サブ）の連結フォームです。

Access　サブフォームに入力した内容をクリアしたい

### 前提・実現したいこと
・サイトAをブラウザXで開くショートカットを作成するスクリプト
・AとXの部分を書き換えれば他のサイト、他のブラウザでも同様に作成できるもの
###
Wshを利用してそれぞれのショートカットを作成することはできました。
・特定のブラウザの起動
・特定のサイトの表示（規定のブラウザで開く）

しかし特定のサイトを特定のブラウザで開くショートカットが作成できません。
例えばGUIからショートカットを作成して以下を指定するとChromeでGoogleを開くものが作成できます。
"C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" https://www.google.co.jp/

このようなものをスクリプトで作成したいのですがどの様にすればよろしいのでしょうか

特定のブラウザで特定のURLを開くショートカットを作成するスクリプト

```ACCESS SQL
SELECT コード, 項目名, 金額
FROM (SELECT * FROM 支給項目一覧) file 
UNPIVOT (金額 FOR 項目名 IN (手当1, 手当2) 
) AS unpvt
ORDER BY unpvt コード desc
;
```

上記SQL文をACCESSにて作りましたが、「FROM 句の構文エラーです。」とエラーメッセージが表示されてしまいます。

やりたいことは
横持のデータを
コード　手当1 手当2 手当3・・・・・・・
10001   100   300   400
10002   140   200   150
・
・
・

縦持ちにすることです
コード 項目名　金額
10001  手当1  100
10001  手当2  300
10001  手当3  400
・
・
・

UNPIVOTを使うとそのようにできるとわかりましたが、初歩的なエラーで躓いております。
どなたかご教授いただけますと幸いです。

よろしくお願いいたします。

Access SQlエラー（FROM句の構文エラーです）

実現したいこと
・Accessのクエリで抽出したデータをエクセルファイルに出力したい。

困っていること
・Access VBAでクエリからデータをエクセルファイルに出力するマクロを書いたがエラーが出て困っている。エラーが出る箇所はDoCmd.TransferSpreadsheet

```
エラーメッセージ：実行時エラー3191　複数回フィールドを定義することはできません。
```

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

```vba
Private Sub excel()
Dim str_file_name As String

str_file_name "D:\Users\○○○○\Desktop\出力結果.xlsx"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, Q_クエリ名, str_file_name, True

MsgBod "完了"
End Sub

```

Accessのバージョンは2016

ご教授頂けますと幸いです。


Access DoCmd.TransferSpreadsheet でエラーがでる

## テーマ、知りたいこと
氏名フィールドのレコードを、姓と名の間に全角スペースが1つ入った形に統一したいが、どのように実現するか。
## 背景、状況
全角スペース1つではなく半角スペースが2つ入っていたり、名の後ろにスペースが入っていたり、そもそもスペースが入っていなかったり…と、客先から預かったExcelデータの形がバラバラで困っています。
毎回Excel上やインポートしたAccess上で置換したり手動でスペースを入れたりしてデータを整形しているのですが、レコード数が多いとそれだけでかなりの時間を要します。
最短かつ確実にデータ整形するのに何か良い方法はありませんでしょうか？

全角スペース2つを全角スペース1つに置換、クエリでtrimした後、姓と名の間にスペースが無いものを手動でレコードを確認しながら手打ちしています。