ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Create Sub Directories From Excel Column via Macro (https://www.excelbanter.com/excel-programming/393584-create-sub-directories-excel-column-via-macro.html)

[email protected]

Create Sub Directories From Excel Column via Macro
 
I have a column in an XLS table, looking like this:

SomeValue1
SomeValue2
SomeValue3

I would like to create a macro that goes through all entries in a
column and if there is a value there, creates a sub-directory in a
speicifed directory.

For example if I specify "C:\Temp" at the top of the Macro, then for
the above example, the following sub-directories will be created:

c:\temp\SomeValue1
c:\temp\SomeValue2
c:\temp\SomeValue3

How could I go about writing such a Macro.

Thanks,

Anil


NickHK

Create Sub Directories From Excel Column via Macro
 
And the reply to your earlier post did not work ?

NickHK

wrote in message
oups.com...
I have a column in an XLS table, looking like this:

SomeValue1
SomeValue2
SomeValue3

I would like to create a macro that goes through all entries in a
column and if there is a value there, creates a sub-directory in a
speicifed directory.

For example if I specify "C:\Temp" at the top of the Macro, then for
the above example, the following sub-directories will be created:

c:\temp\SomeValue1
c:\temp\SomeValue2
c:\temp\SomeValue3

How could I go about writing such a Macro.

Thanks,

Anil




Bob Phillips

Create Sub Directories From Excel Column via Macro
 
Public Sub ProcessData()
Const TEST_COLUMN As String = "A" '<=== change to suit
Const BASE_DIR As String = "C:\Temp\" '<=== change to suit
Dim i As Long
Dim iLastRow As Long
With ActiveSheet

iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = 1 To iLastRow
MkDir BASE_DIR & .Cells(i, TEST_COLUMN).Value
Next i

End With

End Sub

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

wrote in message
oups.com...
I have a column in an XLS table, looking like this:

SomeValue1
SomeValue2
SomeValue3

I would like to create a macro that goes through all entries in a
column and if there is a value there, creates a sub-directory in a
speicifed directory.

For example if I specify "C:\Temp" at the top of the Macro, then for
the above example, the following sub-directories will be created:

c:\temp\SomeValue1
c:\temp\SomeValue2
c:\temp\SomeValue3

How could I go about writing such a Macro.

Thanks,

Anil





All times are GMT +1. The time now is 02:43 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com