hello,

Is it possible to close a .csv file while you are in .xlsm. Here is my
situation, I have a .xlm file and a .csv file open at the save time and I
would like to run a macro that closes the .csv file. My problem is I can not
give it specific file name to close because .csv is auto saves it self every
day with different name, so I have to close all *.csv files.

any help.
thx.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200709/1

You could use a macro that closes all the .csv files:

Option Explicit
Sub testme01()
Dim wkbk As Workbook

For Each wkbk In Application.Workbooks
If LCase(Right(wkbk.Name, 4)) = LCase(".csv") Then
wkbk.Close savechanges:=False
End If
Next wkbk

End Sub



"saman110 via OfficeKB.com" wrote:

hello,

Is it possible to close a .csv file while you are in .xlsm. Here is my
situation, I have a .xlm file and a .csv file open at the save time and I
would like to run a macro that closes the .csv file. My problem is I can not
give it specific file name to close because .csv is auto saves it self every
day with different name, so I have to close all *.csv files.

any help.
thx.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200709/1

--

Dave Peterson

Thank you bro. worked fine.

Dave Peterson wrote:
You could use a macro that closes all the .csv files:

Option Explicit
Sub testme01()
Dim wkbk As Workbook

For Each wkbk In Application.Workbooks
If LCase(Right(wkbk.Name, 4)) = LCase(".csv") Then
wkbk.Close savechanges:=False
End If
Next wkbk

End Sub

hello,

[quoted text clipped - 10 lines]
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200709/1


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200709/1