Save each column into .text file

[pukiamak]

Hello guys,

I have 10 columns in Sheet 1. How can I save each column into .text file so that I have total of 10 different .text file?

Thank you,
tony

 

[SkipVought]

Hi,

Insert a new sheet.

Loop thru each colunm, copy each to the NewSheet.[A1], save as text file.

Skip,
[sub]
[red][/red]
[/sub]

 

[pukiamak]

thanks for the reply. How can i count the filled column in my sheet? the reason is I do not have fixed amount of column everytime.

Thanks,
tony

 

[pukiamak]

Hi guys,

Does anyone know how to select particular column in Statistica using VB macros. I have 10 columns and I want select one column at a time, copy and paste into new Sheet.

Thx,
Tony

 

[CautionMP]

pukiamak,
No idea about Statistica but you can use the [tt]UsedRange[/tt] property in Excel to identify the number of rows and columns.

ActiveSheet.UsedRange.Rows.Count
ActiveSheet.UsedRange.Columns.Count

Hope this helps,
CMP

[small]For the best results do what I'm thinking, not what I'm saying.[/small]
(GMT-07:00) Mountain Time (US & Canada)

 

[SkipVought]

with ActiveSheet.UsedRange
  for iCol = .column to .column + .columns.count - 1
    ...
  next
End With

Skip,
[sub]
[red][/red]
[/sub]

 

[pukiamak]

Hi guys,

I am back with more question
so now I have everything working but I have problem in saveas.

I wish to save the 1st column as "new1.txt"
2nd column as "new2.txt"
3rd column as "new3.txt" and so on

I can not figure out anyway to give different file name in the code since the filename is enclosed in " " which means evertime I run the macro I have to change the filename in the code.

Thank you guys,
Tony

 

[SkipVought]

with ActiveSheet.UsedRange
  for iCol = .column to .column + .columns.count - 1
    ...
      Activeworkbook.savaeas "New" & iCol & ".txt"
  next
End With

Skip,
[sub]
[red][/red]
[/sub]

 

[pukiamak]

Hello guys,

I am wondering is there any way to save 600 columns of Excel data into one text file without disrupting the column format?

Thank you,
Tony

 

[SkipVought]

Hi,

[red]600[/red] columns???

Really???

"...without disrupting the column format..."

If you must disrupt the column format in order to AutoFit and SaveAs, first macro record the current setup in order to restore the format.


Skip,
[sub]
[red][/red]
[/sub]