|
おはようございます。
>一番知りたかったのは、「現在開かれているテキストファイルを保存」
>することがわかりません。
>既に、保存されているテキストファイルを開いたり閉じたりするのはできるのですが、
このできているコードを掲載してくださいネ!!
ご質問の意図を理解するためには、少しでも多くの情報が必要です。
'=================================================================
Sub main()
Dim flnm As Variant
Workbooks.Add
Call mk_sample(ActiveSheet)
MsgBox "サンプル作成、現在開かれているテキストファイルがアクティブな状態です"
svfold = get_sp_fullpath("Desktop")
ChDrive Mid(svfold, 1, 1)
ChDir svfold 'カレントフォルダをDesktopに設定
flnm = Application.GetSaveAsFilename(fileFilter:="テキスト ファイル (*.txt), *.txt")
With ActiveSheet.Parent
If TypeName(flnm) <> "Boolean" Then
.SaveAs Filename:=flnm, FileFormat:=xlText
End If
.Close False
End With
End Sub
'=====================================================================
Sub mk_sample(sht As Worksheet)
'テキストファイルのサンプルを作成
With sht.Range("a1:a20")
For idx = 1 To .Count
.Cells(idx).Value = String(10, Chr(64 + idx))
Next
End With
End Sub
'=====================================================================
Function get_sp_fullpath(keyword) As String
'特殊フォルダ名を取得する
Set WsShell = CreateObject("WScript.Shell")
get_sp_fullpath = WsShell.SpecialFolders(keyword)
Set WsShell = Nothing
End Function
こんな事でしょうか?、mainを実行してみて下さい
|
|