質問: sql & " FROM " & tableName & ";" '文字列連結してsql作成 ' 結果出力 Debug.Print sql Next End Sub ```
回答: 単純にループで回すしかないような気がします。 ``` Dim columnNames As Collection Dim columnNamesA As Collection Dim columnNamesB As Collection Dim columnName As Variant Set columnNames = New Collection Set columnNamesA = New Collection Set columnNamesB = New Collection ~省略~ ' A.のコレクションを作成 For Each columnName In columnNames columnNamesA.Add "A." & columnName Next ' B.のコレクションを作成 For Each columnName In columnNames columnNamesB.Add "B." & columnName Next ``` もっともただ単にSQL文に付加したいだけであるなら、コレクションに付加せずともSQL文生成の箇所に付加すれば良いような気がしますが。 ``` ' SQL文生成 sql = "" sql = "SELECT" For Each columnName In columnNames sql = sql & IIf(sql = "SELECT", " ", ",") & "A." & CStr(columnName) Next sql = sql & " FROM " & tableName & ";" '文字列連結してsql作成 ```