全く下らない質問で申し訳ございません。
あくまでも、興味があったので質問しているだけで、
以下のやり方でなくても、やりたいことが実現できることは
分かっているのですが、教えて頂ければ幸いです。
VBScriptで
Option Explicit
Dim x, y
Set x = CreateObject("Excel.Application")
Set y = x.Workbooks.Open("D:\Sample.xlsx").Worksheets(1)
｜
x.Workbooks(1).Close
x.Quit
Set y = Nothing
Set x = Nothing
普通は、
Set y = x.Workbooks.Open("D:\Sample.xlsx")
Set z = y.Worksheets(1)
として、
y.Close
とする方が分かりやすいのは分かっているのですが、
あえて、勉強を兼ねて、上記のように記述しました。
私が知りたい疑問は、Excelのファイルを２つ開いた場合です。
Option Explicit
Dim x, y, z
Set x = CreateObject("Excel.Application")
x.Application.DisplayAlerts = False
x.Visible = False
Set y = x.Workbooks.Open("F:\Sample.xlsx").Worksheets(1)
Set z = x.Workbooks.Add().Worksheets(1)
z.Range("A1").Value = y.Range("A1").Value
x.Workbooks(1).Close
x.Workbooks(2).SaveAs("F:\Test_02.xlsx")
x.Workbooks(2).Close
x.Quit
Set z = Nothing
Set y = Nothing
Set x = Nothing
このプログラムで、
Set y = x.Workbooks.Open("F:\Sample.xlsx").Worksheets(1)
の行が無ければ、「x.Workbooks(1).Close」もなく、
その下の行は、
x.Workbooks(1).SaveAs("F:\Test_02.xlsx")
x.Workbooks(1).Close
となり、問題なく「Test_02.xlsx」ファイルが出来ていました。
ファイルを２つ開いたので、「Workbooks(2)」となる、
と思ったのですが、どうやら違うようです。
（「インデックスが有効範囲にありません」というエラーになります）
何度も言いますが、こんなことで悩む必要がないのは
分かっているのですが、何か気になります。
上記のやり方で、Excelのファイルを２つ開いている場合の
２つ目のファイルを閉じる方法を教えてください。
ホント、下らない質問で申し訳ございませんが
よろしくお願い致します。
以上
全く下らない質問で申し訳ございません。
あくまでも、興味があったので質問しているだけで、
以下のやり方でなくても、やりたいことが実現できることは
分かっているのですが、教えて頂ければ幸いです。
VBScriptで
Option Explicit
Dim x, y
Set x = CreateObject("Excel.Application")
Set y = x.Workbooks.Open("D:\Sample.xlsx").Worksheets(1)
｜
x.Workbooks(1).Close
x.Quit
Set y = Nothing
Set x = Nothing
普通は、
Set y = x.Workbooks.Open("D:\Sample.xlsx")
Set z = y.Worksheets(1)
として、
y.Close
とする方が分かりやすいのは分かっているのですが、
あえて、勉強を兼ねて、上記のように記述しました。
私が知りたい疑問は、Excelのファイルを２つ開いた場合です。
Option Explicit
Dim x, y, z
Set x = CreateObject("Excel.Application")
x.Application.DisplayAlerts = False
x.Visible = False
Set y = x.Workbooks.Open("F:\Sample.xlsx").Worksheets(1)
Set z = x.Workbooks.Add().Worksheets(1)
z.Range("A1").Value = y.Range("A1").Value
x.Workbooks(1).Close
x.Workbooks(2).SaveAs("F:\Test_02.xlsx")
x.Workbooks(2).Close
x.Quit
Set z = Nothing
Set y = Nothing
Set x = Nothing
このプログラムで、
Set y = x.Workbooks.Open("F:\Sample.xlsx").Worksheets(1)
の行が無ければ、「x.Workbooks(1).Close」もなく、
その下の行は、
x.Workbooks(1).SaveAs("F:\Test_02.xlsx")
x.Workbooks(1).Close
となり、問題なく「Test_02.xlsx」ファイルが出来ていました。
ファイルを２つ開いたので、「Workbooks(2)」となる、
と思ったのですが、どうやら違うようです。
（「インデックスが有効範囲にありません」というエラーになります）
何度も言いますが、こんなことで悩む必要がないのは
分かっているのですが、何か気になります。
上記のやり方で、Excelのファイルを２つ開いている場合の
２つ目のファイルを閉じる方法を教えてください。
ホント、下らない質問で申し訳ございませんが
よろしくお願い致します。
以上
すいません、先ほど質問した者です。
http://okwave.jp/qa/q7357905.html
以下のマクロを試すと・・
Ａのセルに「ファイル名.txt」
Ｂのセルに「C:\Users\～￥フォルダ名」
となります。
この「.txt」と「C:\Users\～￥」は表示させたくありません。
自分でもいじってみたのですが、できませんでした。
表示させないようにするにはどうすればいいでしょうか？
度々の質問で恐縮ですが、よろしくお願いします。
Sub Macro()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim FolderPath As String
FolderPath = ThisWorkbook.Path
Dim myFile As Object
Dim i As Long
i = 2
Dim myFolder As Object
For Each myFolder In fso.GetFolder(FolderPath).SubFolders
For Each myFile In fso.GetFolder(myFolder).Files
Cells(i, 4).Value = myFolder
Cells(i, 1).Value = myFile.Name
Cells(i, 7).Value = fso.OpenTextFile(myFile.Path).ReadAll()
i = i + 1
Next
Next
End Sub
Private Sub CommandButton1_Click()
End Sub
以前、複数のテキストファイルをエクセルに移すマクロを教えてもらったのですが、
以下マクロですと、フォルダのパスを指定しないといけません。
今回教えてもらいたいのは、フォルダのパスを指定しなくてもよい方法です。
どういう事かと言うと、仮にディスクトップにフォルダがあるとします。
そのフォルダの中には、マクロが入っているエクセルシートとテキストが入っているフォルダです。
つまり、そのフォルダ内だけで、処理をしたいと考えています。
また、フォルダ名は、その時によって異なります。
今までは、以下の方法を使っていたのですが、ちょっと使いにくいと感じています。
申し訳ありませんが、どなたか教えていただけないでしょうか？
Sub Macro()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim FolderPath As String
'ここのアドレスをファイルが格納されているフォルダのパスに変えてください
FolderPath = "C:\Users\・・・"
Dim myFile As Object
Dim i As Long
i = 2
Dim myFolder As Object
For Each myFolder In fso.GetFolder(FolderPath).SubFolders
For Each myFile In fso.GetFolder(myFolder).Files
Cells(i, 4).Value = myFolder
Cells(i, 1).Value = myFile.Name
Cells(i, 7).Value = fso.OpenTextFile(myFile.Path).ReadAll()
i = i + 1
Next
Next
End Sub
Private Sub CommandButton1_Click()
End Sub
Okwaveで教えていただいたマクロを一つのボタンで動かそうとしています。
ステップインで動かすと希望の動作をするのですが実行すると途中で止まります。
点検用紙をコピーして日付と曜日を入れようとしています。
Sub macro1()
Dim s As String
s = Format(Date, "e年m月")
On Error GoTo errhandle
Worksheets(s).Select
With Range("A7:D7")
Value = Date
NumberFormatLocal = "ggge年m月d日"
End With
With Range("E7")
Value = Date
NumberFormatLocal = "aaa曜"
Select
End With
Exit Sub
errhandle:
Worksheets("月次点検用紙").Copy before:=Worksheets(2)
ActiveSheet.Name = s
End Sub
