|
>▼若葉 さん:
表題にフォームとありましたね!!
失礼しました。
下記のコードで読込みが成功すれば、
後は、読み込んだデータのあるセル範囲に対して
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
|
|