Excel VBA質問箱 IV

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

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


68877 / 76734 ←次へ | 前へ→

【12383】Re:テキストファイルから指定シートへ読み込みする方法は?
お礼  さる E-MAIL  - 04/4/1(木) 22:03 -

引用なし
パスワード
   >>▼通りすがりの者 さん:
>いつもお世話になり、ありがとうございます。
>>>ごめんなさい。説明不足ですみませんでした。
>>>>1.「123」という文字が書かれたテキストファイルはユーザーフォームを
>>>>利用してコード番号001-01-2004-03-24に入力します。
>>>>001-01-2004-03-24.txtをデスクトップに作成する。
>>>>できればフォルダを付けてからテキストファイルを保存します。
>>>
>>>「123」という文字が書かれたテキストファイルは開けばいいんですか?
>>はいそうです。
>>>ユーザーフォームへの入力は人間の作業と言うことですか?
>>はいそうです。人間の作業で入力してこのコード番号を
>>一致してテキストファイルから読込します。
>>>ユーザーフォームにはコード番号を入力するテキストボックスがあるということですか?
>>はいテキストボックスがあります。入力してボタンを押して読込します。
>>
>>>イマイチ質問の内容が私には理解できません。
>>>
>>>>
>>>>2.別のBookを開いて、ユーザーフォームを開いて001-01-2004-03-24の
>>>>リストボックスを表示、選択し、001-01-2004-03-24.txtファイルを
>>>>読み込んで、指定のシートを「123」を取り込んで計算し、結果を出る
>>>>ようにしたい。
>>>
>>>こちらも質問の主旨が分かりかねます。
>>>
>>>ある程度、ご自身でマクロの記録をされてみては?
>>>
>>>その上で分からないことを具体的にコードを掲載するとかして質問をされてはいかがでしょうか?
>
>マクロで修正したがエラーを出すけど、
>コード間違いでしょうか? ご指南おねがいします。
>
>Private Sub CommandButton1_Click() '入力完了ボタン
>  'Changeイベントがおきないように。
>  Application.EnableEvents = False
>  
>  Dim myFile As String
>  Dim fNo As Integer
>  Dim lRow As Integer, i As Integer
>  Dim ws As Worksheet, Rpos As Long
>  Set ws = Worksheets("顧客データ")
>  ws.Visible = True
>  ws.Activate
>  'A列(番号)の最終行をチェックし、そこに通し番号を入力します。
>  Rpos = ws.Range("A65536").End(xlUp).Row + 1
>  'B列(氏名)にテキストボックスの会社名を入力します。
>  With ws
>    If Rpos = 3 Then
>      .Cells(Rpos, 1).Value = 1
>    Else
>      .Cells(Rpos, 1).Value = .Cells(Rpos - 1, 1).Value + 1
>    End If
>    '
>    .Cells(Rpos, 2).Value = TextBox1.Text '会社名
>    .Cells(Rpos, 3).Value = TextBox2.Text '本部名コード
>    .Cells(Rpos, 4).Value = TextBox3.Text '支部名コード
>    .Cells(Rpos, 5).Value = TextBox5.Text '実施日(年度)
>    .Cells(Rpos, 6).Value = TextBox6.Text '月
>    .Cells(Rpos, 7).Value = TextBox7.Text '日
>  End With
>'本部コード(001〜999)− 支部コード(01〜99)- 年度 - 月 −日.csvをインプットし、保存します。
>
>’Workシートにcvsファイルへ書き込みします。
>  myFile = "C:\Documents" & TextBox2.Text & "-" & TextBox3.Text & "-" & TextBox5.Text _
>     & "-" & TextBox6 & "-" & TextBox7 & ".csv"
> 
 Worksheets("Work").Activate
>  lRow = Range("A1").CurrentRegion.Rows
>
>  fNo = FreeFile
>  Open myFile For Output As #fNo
>
>  For i = 1 To lRow
>  Write #fNo, Cells(i, 1), Cells(i, 2), Cells(i, 3) _
>  ; Cells(i, 4), Cells(i, 5), Cells(i, 6) _
>  ; Cells(i, 7), Cells(i, 8), Cells(i, 9), Cells(i, 10) _
>  ; Cells(i, 11), Cells(i, 12), Cells(i, 13), Cells(i, 14), sells(i, 15) _
>  ; Cells(i, 16), Cells(i, 17), Cells(i, 18), Cells(i, 19), sells(i, 20) _
>  ; Cells(i, 21), Cells(i, 22), Cells(i, 23), Cells(i, 24), sells(i, 25) _
>  ; Cells(i, 26), Cells(i, 27), Cells(i, 28), Cells(i, 29), sells(i, 30) _
>  ; Cells(i, 31), Cells(i, 32), Cells(i, 33), Cells(i, 34), sells(i, 35) _
>  ; Cells(i, 36), Cells(i, 37), Cells(i, 38), Cells(i, 39), sells(i, 40) _
>  ; Cells(i, 41), Cells(i, 42), Cells(i, 43), Cells(i, 44), sells(i, 45) _
>  ; Cells(i, 46), Cells(i, 47), Cells(i, 48), Cells(i, 49), sells(i, 50) _
>  ; Cells(i, 51), Cells(i, 52), Cells(i, 53), Cells(i, 54), sells(i, 55) _
>  ; Cells(i, 56), Cells(i, 57), Cells(i, 58), Cells(i, 59), sells(i, 60) _
>  ; Cells(i, 61), Cells(i, 62), Cells(i, 63), Cells(i, 64), sells(i, 65) _
>  ; Cells(i, 66),
>  Next
>  
>
>  Close #fNo
>End Sub
>
>  'TextBox_Clear
>  Dim obj As Control
>  For Each obj In Me.Controls
>    If TypeName(obj) = "TextBox" Then
>      obj.Text = ""
>    End If
>  Next
>  '
>  Me.OptionButton1.Value = True
>  '行の複製
>  RowCopy Rpos
>  '
>  TextBox1.SetFocus
>  Application.EnableEvents = True
>End Sub
1 hits

【12104】テキストファイルから指定シートへ読み込みする方法は? さる 04/3/24(水) 1:14 質問
【12105】Re:テキストファイルから指定シートへ読み... 通りすがりの者 04/3/24(水) 3:02 発言
【12111】Re:テキストファイルから指定シートへ読... IROC 04/3/24(水) 9:23 回答
【12132】Re:テキストファイルから指定シートへ読み... さる 04/3/24(水) 17:57 発言
【12378】Re:テキストファイルから指定シートへ読み... さる 04/4/1(木) 20:48 お礼
【12381】Re:テキストファイルから指定シートへ読み... さる 04/4/1(木) 21:54 質問
【12382】Re:テキストファイルから指定シートへ読み... さる 04/4/1(木) 21:59 お礼
【12383】Re:テキストファイルから指定シートへ読み... さる 04/4/1(木) 22:03 お礼

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