|
以下のようなプログラムを組み、エクセルシートをテキスト形式に変換する
プログラムを組みました。Sheet1のBX14のセルはセルが連結しているために
xlValuesにて値のみコピーして、別シートに貼り付けています。
BX14には日付のデータが入っており、2005/08/01と日付形式のデータが入っています。テキスト形式にする際にテキスト側では08/01/2005と表示されましたのでこれをFormat関数で以下のように日付の形式を文字の形式に変えました。が、まだ反転します。どなかかご教示ください。
Sheets("Sheet1").Select
Range("BX14").Select
Selection.Copy
Sheets("Sheet2").Select
Cells(e, 13).Select
Selection.PasteSpecial Paste:=xlValues
Cells(e, 13).Value = Format(Cells(e, 13).Value, "yyyy/mm/dd")
With Application
svnm = Workbooks("TEST.xls").Sheets("Sheet1").Range("H9").Value
svnm = .GetSaveAsFilename(svnm, "テキストファイル,*.txt")
End With
ActiveWorkbook.SaveAs Filename:=svnm, FileFormat:=xlText
ActiveWorkbook.Close SaveChanges:=False
|
|