Excel VBA質問箱 IV

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

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


52004 / 76737 ←次へ | 前へ→

【29581】Re:フォームのテキストボックス
発言  ichinose  - 05/10/8(土) 15:21 -

引用なし
パスワード
   >▼若葉 さん:
表題にフォームとありましたね!!
失礼しました。
下記のコードで読込みが成功すれば、

後は、読み込んだデータのあるセル範囲に対して


Application.matchを使用すれば

マスターデータの読込み・更新が可能かと思います。
Excelでのマスターデータの管理としては
一般的な方法だと思いますが、検討してみて下さい


>
>'=========================================================
>Sub test()
>  Dim bk As Workbook
>  Set bk = open_text("c:\My Documents\testarea\sm.txt")
>'              ↑ここに実際のファイル名を記述してください
>  MsgBox bk.Name & ":::" & bk.ActiveSheet.Name
>End Sub
>'========================================================
>Function open_text(flnm As String) As Workbook
>  On Error Resume Next
>  Dim bk As Workbook
>  Workbooks.OpenText Filename:=flnm, StartRow:=1 _
>       , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
>       , ConsecutiveDelimiter:=True, Tab:=True _
>       , Semicolon:=False, Comma:=False _
>       , Space:=True, Other:=False _
>       , FieldInfo:=Array(Array(1, 1), Array(2, 1) _
>             , Array(3, 1), Array(4, 1))
>  If Err.Number <> 0 Then
>    MsgBox Err.Number & " : " & Err.Description
>    Set open_text = Nothing
>  Else
>    Set open_text = ActiveWorkbook
>    End If
>End Function

0 hits

【29571】フォームのテキストボックス 若葉 05/10/7(金) 23:41 質問
【29575】Re:フォームのテキストボックス ichinose 05/10/8(土) 7:48 発言
【29581】Re:フォームのテキストボックス ichinose 05/10/8(土) 15:21 発言
【29577】Re:フォームのテキストボックス awu 05/10/8(土) 12:21 回答
【29579】Re:フォームのテキストボックス だるま 05/10/8(土) 14:04 回答

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