エクセル -> VBA


テキストファイルへ出力する。

コード
Option Explicit

Private Sub CommandButton1_Click()
 
 '# FileSystemObject オブジェクト
 '# ファイル システムへアクセスする方法を提供する
  Dim FSO As New FileSystemObject
    '# Microsoft Scripting Runtime に参照設定が入っていない場合は以下のコード
    '#   Dim FSO As Object
    '#   Set FSO = CreateObject("Scripting.FileSystemObject")
 
 
 '# TextStream オブジェクト
 '# ファイルへのシーケンシャルファイルアクセスを行う
  Dim TS As TextStream
    '# Microsoft Scripting Runtime に参照設定が入っていない場合は以下のコード
    '#   Dim TS As Object
    '#   Set TS = CreateObject("Scripting.FileSystemObject")
 
  
 '# Book オブジェクトの作成
  Dim CurBook As Workbook
  Set CurBook = ActiveWorkbook
  
  Dim DefFileName As String
  DefFileName = "\test.txt"
  
  Dim SaveFileName As String

'### ファイルの保存方法 2通り記述から選択 ###
'# ファイル名指定ダイアログを表示する場合
    SaveFileName = Application.GetSaveAsFilename( _
             InitialFileName:=CurBook.Path & DefFileName)
  
    If SaveFileName = "False" Then Exit Sub
   
'# 定義したファイル名で固定する場合
'  SaveFileName = CurBook.Path & DefFileName

'# 指定した名前のファイルを作成し、
'#   作成したファイルの読み取りまたは書き込みに使用できる
'#   TextStream オブジェクトを返す。
  Set TS = FSO.CreateTextFile( _
           FileName:=SaveFileName, _
           Overwrite:=True)

'# WriteLime メソッド
'#  指定した文字列と改行文字を TextStream ファイルに書き込む

 Dim nRow As Integer
 For nRow = 1 To 31
   TS.WriteLine Cells(nRow, 1).Value
 Next nRow


End Sub




      Document-Folder          一覧
HP-UX
HULFT
JAVA
JP1
JavaScript
Linux
MAC
PHP
Perl
Python
Ruby
SOA
Solaris
Unix全般
Windows
XML
エクセル
スタイルシート
セキュリティー
データベース
ネットワーク
パソコン
ブラウザ
プログラム構文
仮想化
          RSS-Folder
ニュース
   アットマーク・アイティ(@IT)
   シンクイット(ThinkIT)
   インターネットコム
   インターネットウォッチ
   日経IT-Pro
   日経パソコン
   CNET Japan
   ZD-NetJapan
   MYCOM
   RBB-Today
ベンダー
   日本IBM
   日本HP
   サンマイクロシステムズ
   NEC
   富士通
   日立
ソフトウェア
   マイクロソフト
   トレンドマイクロ
   オラクル
   サイボウズ
   Mozilla
   野村総合研究所
   (その他ソフトウェア企業)
更新履歴 一覧
 07/08 PERF
プログラム構文
 07/07 PERF
プログラム構文
 06/25 オブジェクトプログラミング2
Perl>サンプル
 07/12 クローン作成
仮想化>vCenter
 07/12 vyatta設定
ネットワーク>vyatta
 07/12 vyattaインストール
ネットワーク>vyatta
 07/12 リポジトリサーバ
Linux>サーバ構築
 07/05 VMwareのインストール
仮想化>VMware
 07/05 PXEブート
仮想化>KVM
 07/01 DHCPでのPXEブート
仮想化>KVM
 06/27 qcow2仮想DISK作成
仮想化>KVM
 06/13 NWの設定
仮想化>VMwareEsxi
 06/13 IPアドレスの変更
仮想化>VMwareEsxi
 06/12 自動ssh
Unix全般>シェル>Bash
 06/12 diffプログラミング
Python
Google