Adjust VBA to close file after opening

[ItalianPlatinum]

Hello,
I have a VBA that will open a file based off of only certain criteria being met. the only ask or modification i'm looking for is how do I leverage the existing VBA to just close the file when its done.

Sub OpenCopy()
Dim sPath As String
Dim sPartial As String
Dim sFName As String

sPath = "C:\" ' <<<<< change accordingly

sPartial = "AAA_" & Year(Now) & IIf(Len(Month(Now)) = 1, "0" & Month(Now), Month(Now)) & IIf(Len(Day(Now)) = 1, "0" & Day(Now), Day(Now)) & "*.txt"
sFName = Dir(sPath & sPartial)
If Len(sFName) > 0 Then
Workbooks.OpenText sPath & sFName
Else
MsgBox "File not found.", vbExclamation
End If
End Sub

Thanks,

 

[Logit]

.
Workbook.Close method (Excel)

Else
MsgBox "File not found.", vbExclamation
End If

Workbooks("YourWorkbookName").Close SaveChanges:=False  '<-- can change to True if you want changes saved

End Sub

 

[ItalianPlatinum]

.
Workbook.Close method (Excel)

Else
MsgBox "File not found.", vbExclamation
End If

Workbooks("YourWorkbookName").Close SaveChanges:=False  '<-- can change to True if you want changes saved

End Sub

So the problem is the workbook name isnt a constant value it changes so that is why my VBA opens it based off a partial file meeting a criteria.

 

[Logit]

ActiveWorkbook.Close

 

[ItalianPlatinum]

ActiveWorkbook.Close

I am calling on the file to copy data and to paste it in another workbook. So need to recall that workbook so not sure how to include that

 

[Logit]

If the other workbook is open at the same time, it should still be viewable after closing the activeworkbook.

 

[ItalianPlatinum]

If the other workbook is open at the same time, it should still be viewable after closing the activeworkbook.

Yes so that is my dilemma how do i call back that workbook in my vba when i open it off a partial file being met. if i do activeworkbook it will close the workbook i'm using to paste the data in.

 

[Logit]

.
Your original question was " how do I leverage the existing VBA to just close the file when its done "

The answer has been provided.

If you have other questions not pertaining to closing a workbook, please start another thread.

 

[ItalianPlatinum]

.
Your original question was " how do I leverage the existing VBA to just close the file when its done "

The answer has been provided.

If you have other questions not pertaining to closing a workbook, please start another thread.

I am sorry i dont follow. my original post is how do i leverage my vba that calls on a partial name to close the workbook. i will start another thread then and clarify the original ask better

 

[Fluff]

How about

Sub OpenCopy()
Dim sPath As String
Dim sPartial As String
Dim sFName As String
Dim Wbk As Workbook

sPath = "C:\" ' <<<<< change accordingly

sPartial = "AAA_" & Year(Now) & IIf(Len(Month(Now)) = 1, "0" & Month(Now), Month(Now)) & IIf(Len(Day(Now)) = 1, "0" & Day(Now), Day(Now)) & "*.txt"
sFName = Dir(sPath & sPartial)
If Len(sFName) > 0 Then
   Workbooks.OpenText sPath & sFName
   Set Wbk = ActiveWorkbook
Else
   MsgBox "File not found.", vbExclamation
End If
'do something
Wbk.Close
End Sub