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 …
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。