VERSION 1.0 CLASS BEGIN MultiUse = -1 ' True END Attribute VB_Name = "Node" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit Dim m_Name As S…

Sub Export(ws As Worksheet) Dim f As Variant f = Application.GetSaveAsFilename(ws.Name & ".txt", "テキストファイル (*.txt), *.txt") If f = False Then Exit Sub Open f For Output As #1 Const topx = 2 Const topy = 5 Dim endx As Long Dim endy …

Option Explicit 'On Error Resume Next ' ---------------------------------------------------------------------- ' テキストファイルを入れたフォルダをドロップすると、 ' フォルダ内のファイルを一つのExcelブックに読み込みます ' -----------------…