2017-10-24 5 views
1

こんにちは、私の生データファイルを正しく閉じることはできません。 データキャプチャフォームがあり、Submitを押すと別のExcelファイルが開き、すべてのデータがコピーされ、ブックを保存して閉じます。 次のように私のコードは次のとおりです。VBAその他のワークブックが正しく終了しない

Private Sub submit_Click() 

'Open Workbook 
If MsgBox("You are about to Submit, Are you sure?" & vbCr & "Please make sure that the OUTCOME box is complete", vbYesNo) = vbNo Then Exit Sub 


Dim wb As Workbook, sh As Worksheet 
Set wkb = Workbooks.Open("\\ServerName\Reports Folder\Team Name\Manager Name\RAW\RAW QC data.xlsx") 

'Make Daily_Tracking_Dataset active 
'Determine emptyRow 
'Transfer Information 

Set wb = Workbooks("RAW QC data.xlsx") 

Set sh = wb.Sheets(1) 
cAry = Array(Me.QCBX, Me.CallBX, Me.INBX, Me.AgntBX, Me.VoxBX, Me.ClntBX, Me.PolBX, Me.DateBX1, Me.AuditBX1, Me.TextBox7, Me.TextBox8, Me.OUTBX1, Me.Cbx1_1, Me.Cbx1_2, Me.Cbx1_3, Me.Cbx1_4, Me.OUTBX2, Me.Cbx2_1, Me.Cbx2_2, Me.Cbx2_3, Me.OUTBX3, Me.Cbx3_1, Me.Cbx3_2, Me.OUTBX4, Me.Cbx4_1, Me.Cbx4_2, Me.Cbx4_3, Me.OUTBX5, Me.Cbx5_1, Me.Cbx5_2, Me.Cbx5_3, Me.Cbx5_4, Me.Cbx5_5, Me.Cbx5_6, Me.Cbx5_7, Me.Cbx5_8, Me.ACBX, Me.QTBX, Me.QFBX) 
    With sh 
     For i = 1 To 39 
      .Cells(Rows.Count, i).End(xlUp)(2) = cAry(i - 1).Value 
     Next 
    End With 

'Save the Raw data 
wb.Close SaveChanges:=True 

End Sub 

何が起こっていることはあなたが両方wkbを持って

答えて

2

を、それが働いているように見えますが、私は次のいずれかを提出しようとすると、それは私にSAVE ASウィンドウを与えることで、あなたのコードにwb。おそらくこれはあなたの意図ではありません。あなたのコードでwkbwbに変更してみてください。それはOption Explicit使用を開始するには良い理由です - このような単純なもので作業する必要があり、一般的にはWhat do Option Strict and Option Explicit do?


を:

Public Sub TestMe() 

    'Dim wb  As Workbook 
    Dim wkb  As Workbook 
    Dim sh  As Worksheet 

    Set wkb = Workbooks.Open(ThisWorkbook.Path & "\Testing.xlsx") 
    'Set wb = Workbooks("Testing.xlsx") 

    'Put your loop instead of the TEST later: 
    wb.Worksheets(1).Cells(1, 1) = "TEST" 

    Application.DisplayAlerts = False 
    wkb.Save 
    Application.DisplayAlerts = True 
    wkb.Close 

End Sub 
+2

'「(WKB = Workbooks.Openを設定行ではありません。 .... wb'を参照する代わりに 'wbk'を使用する方が簡単でしょう。 – Ralph

+0

' wkb'と 'wb'あなたは 'wkb'で何もしていません。 – Vityata

+0

@Ralph - あなたがOPではないことに気付かなかった – Vityata

関連する問題