Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35992 / 76807

←次へ　｜　前へ→


	【46003】ユーザーフォームのListBoxから転記

yasu - 07/1/21(日) 11:58 -


	引用なし

	パスワード

ユーザーフォームのListBoxへテキストを読み込んでいるのですが
このテキストの左側６桁［半角数字］をシート［"入力"］のR8からR107のセルに
転記できますか？
下記が現在のコードです
よろしくお願いします。
Sub コード()
　　Dim FName　As String
　　FName = ThisWorkbook.Path + "C:\テキスト.txt"
　　Const cnsFILENAME = "C:\テキスト.txt"
　　Dim intFF As Integer
　　Dim strREC As String
　　Dim GYO As Long

　　intFF = FreeFile
　　Open cnsFILENAME For Input As #intFF
　　GYO = 1
　　Do Until EOF(intFF)
　　　　Line Input #intFF, strREC
　　　　UserForm2.ListBox1.AddItem strREC
　　Loop
　　Close #intFF
　　UserForm2.Show
End Sub

0 hits

▼

【46003】ユーザーフォームのListBoxから転記 yasu 07/1/21(日) 11:58

≪