Public wb起動元ブック As Workbook
Public wb前回実行結果 As Workbook
Private Sub btnSQL生成_Click()
wb起動元ブック.Activate
Dim obj試験データシート As cls試験データシート
Set obj試験データシート = New cls試験データシート
Dim obj対象シート As Worksheet
Set obj対象シート = ActiveSheet
If rdo現在のシート.Value = True Then
txtSQL.Value = vbCrLf & "-- シート名:" & obj対象シート.Name & vbLf & _
createSQL文(obj試験データシート, obj対象シート)
Else
Dim strSQL As String
For Each obj対象シート In ActiveWorkbook.Sheets
obj対象シート.Activate
strSQL = strSQL & vbLf & "-- シート名:" & obj対象シート.Name
strSQL = strSQL & createSQL文(obj試験データシート, obj対象シート)
Next
txtSQL.Value = strSQL
End If
End Sub
Private Function createSQL文( _
ByRef obj試験データシート As cls試験データシート, _
ByRef obj対象シート As Worksheet) As String
If rdInsert Then
createSQL文 = obj試験データシート.対象シートINSERT文作成(obj対象シート)
ElseIf rdUpdate Then
ElseIf rdSelect Then
ElseIf rdDelete Then
End If
End Function
Private Sub btnレコード取得_Click()
log "レコード取得処理開始"
wb起動元ブック.Activate
Dim obj試験データシート As cls試験データシート
Set obj試験データシート = New cls試験データシート
Set wb前回実行結果 = obj試験データシート.getレコード(Nothing)
If Not (wb前回実行結果 Is Nothing) Then
Application.CutCopyMode = False
wb前回実行結果.Activate
wb前回実行結果.ActiveSheet.Range("A1").Select
btnレコード追加取得.Enabled = True
End If
log "レコード取得処理終了"
End Sub
Private Sub btnレコード追加取得_Click()
log "レコード追加取得処理開始"
wb起動元ブック.Activate
Dim obj試験データシート As cls試験データシート
Set obj試験データシート = New cls試験データシート
Set wb前回実行結果 = obj試験データシート.getレコード(wb前回実行結果)
If Not (wb前回実行結果 Is Nothing) Then
Application.CutCopyMode = False
wb前回実行結果.Activate
wb前回実行結果.ActiveSheet.Range("A1").Select
Call obj試験データシート.edit実行結果差分(wb前回実行結果)
End If
log "レコード追加取得処理終了"
End Sub
Private Sub UserForm_Initialize()
Set wb起動元ブック = ActiveWorkbook
btnSQL生成.SetFocus
End Sub