Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


33538 / 76734 ←次へ | 前へ→

【48412】Re:SaveAsメソッドのxlText(タブ区切りのテキスト)での保存について
発言  ウッシ  - 07/4/16(月) 19:19 -

引用なし
パスワード
   こんばんは

こんな感じです。標準モジュールの先頭から、

Type rFormat
  A列郵便番号 As String * 8
  B列住所   As String * 40
  C列電話番号 As String * 11
  D列名前   As String * 21
End Type

Sub test()
  Dim rFmt  As rFormat
  Dim fN   As Integer
  Dim mArray
  Dim i    As Long
  Dim j    As Long
  Dim Sh1   As Worksheet
  
  Set Sh1 = Worksheets("Sheet1")
  
  mArray = Sh1.Range("A1").CurrentRegion.Value
  j = UBound(mArray, 1)
  
  fN = FreeFile
  Open "C:\TEST\AAA.txt" For Binary As #fN
  
  For i = 1 To j
    rFmt.A列郵便番号 = StrConv(mArray(i, 1), vbNarrow) & String(8, " ")
    rFmt.B列住所 = StrConv(mArray(i, 2), vbWide) & String(40, " ")
    rFmt.C列電話番号 = StrConv(mArray(i, 3), vbNarrow) & String(11, " ")
    rFmt.D列名前 = StrConv(mArray(i, 4), vbWide) & String(21, " ")
    
    Put #fN, , rFmt
    Put #fN, , vbCrLf
  Next
  Close #fN
End Sub

2 hits

【48404】SaveAsメソッドのxlText(タブ区切りのテキスト)での保存について かつ 07/4/16(月) 15:15 質問
【48405】Re:SaveAsメソッドのxlText(タブ区切りの... ウッシ 07/4/16(月) 15:52 発言
【48407】Re:SaveAsメソッドのxlText(タブ区切りの... かつ 07/4/16(月) 16:23 回答
【48408】Re:SaveAsメソッドのxlText(タブ区切りの... ウッシ 07/4/16(月) 17:05 発言
【48409】Re:SaveAsメソッドのxlText(タブ区切りの... かつ 07/4/16(月) 17:42 発言
【48412】Re:SaveAsメソッドのxlText(タブ区切りの... ウッシ 07/4/16(月) 19:19 発言
【48441】Re:SaveAsメソッドのxlText(タブ区切りの... かつ 07/4/17(火) 16:17 お礼

33538 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free