VBAでSQLのテーブル実名と別名を同じセルに出力

質問

以前、VBAで[文字列を各セルに出力]という質問をさせていただいた者です。

現在SQLの結合条件を各セルに出力ということをやっています。
そこでは、結合条件の文字列を一文字ずつ見ていき、スペースごとに区切るという処理をしています。

そこで、各セルに出力していったのですが、テーブルに別名が付いていた時、そこにスペースがあるため、一つとして見られてしまい、同じセルには出力できません。

現在は以下の通りです。

論理　｜　　　　　｜　　｜　　　　　 ｜
演算子｜テーブル名｜条件｜テーブル名 ｜
――――――――――――――――――――
　　　｜EMP　　　 ｜ I ｜EMP | EMP_1
ON |EMP.DEPTNO | = |EMP_1.DEPTNO|
これを

論理　｜　　　　　｜　　｜　　　　　 ｜
演算子｜テーブル名｜条件｜テーブル名 ｜
――――――――――――――――――――
　　　｜EMP　　　 ｜ I ｜EMP EMP_1 |
ON |EMP.DEPTNO | = |EMP_1.DEPTNO|

という風にしたいのです。

どなたかご教授ください。

回答No.3

AKARI0418 · ベストアンサー

Sub SplitSQL()
'今回はセレクト文のみで考えます。
'複合条件の場合で()付きのものは対象にしません。( A OR B ) AND Cのような条件

Dim strSQL As String
Dim strWork As String
Dim field() As String
Dim alias() As String
Dim tables() As String
Dim work() As String
Dim i As Integer

'strSQL = "SELECT A.TABLEA AliasA, B.TABLEB AliasB, C AS AliasC FROM TABLEA,TABLEB WHERE AliasA = AliasB"
'strSQL = "SELECT A.TABLEA AliasA, B.TABLEB AliasB, C FROM TABLEA,TABLEB WHERE AliasA = AliasB"

'大文字小文字の区別をしないで１文字目から文字が含まれるかをチェック
If InStr(1, strSQL, "SELECT", vbTextCompare) = 0 Or InStr(1, strSQL, "FROM", vbTextCompare) = 0 Then
Exit Sub
End If

'FROMの前まで取り出す
strWork = Left(strSQL, InStr(1, strSQL, "FROM", vbTextCompare) - 1)

'SELECT文を取り除く
strWork = Right(strWork, Len(strWork) - (InStr(1, strSQL, "SELECT", vbTextCompare) + Len("select") - 1))

'カンマ区切りでfieldに格納する

field = Split(strWork, ",")

'これでfieldの中には別名の配列が完成
'以下はおまけ
ReDim tables(UBound(field))
ReDim alias(UBound(field))

For i = 0 To UBound(field)
field(i) = Trim(field(i))

'別名とテーブル名の対応する配列を作る
work = Split(field(i), " ")

'A.TABLEA AliasA　またはC AS AliasCなので、1配列目にテーブル名、配列の末尾に別名が来る。
tables(i) = work(0)

'別名が存在する場合は格納、存在しない場合はvbnullstring
If UBound(work) <> 0 Then
alias(i) = work(UBound(work))
End If

Next i

For i = 0 To UBound(tables)
MsgBox ("テーブル名=" & tables(i) & "別名=" & alias(i))
Next i
End Sub

こんなイメージでしょうか？
がんばってくださいね。

お礼

ありがとうございます！

AKARI0418さんのを基に完成形を組んでいきたいと思います。

大変勉強になりました！