エクセル マクロの書き方が分かりません。

質問

エクセルＶＢＡ超初心者です。あるエクセルファイル内の複数シートの同じ一つのセルをコピーしてテキストファイルに吐き出すプログラムをつくりたいのですが．．．どうすれば良いか分かりません。誰か教えてください。

回答No.2

nicotinism

こんな感じ？
標準モジュールにてご確認を
詳しい事は分からない単語にカーソルを持っていって、F1 でヘルプを

Sub test()
　　Dim ws As Worksheet
　　Dim ff As Integer
　　Dim tmpStr As String

　　ff = FreeFile
　　Open "c:\text1.txt" For Output As #ff '上書き

　　For Each ws In Worksheets
　　　　Print #ff, ws.Name, ws.Cells(1, 1).Value
　　Next
　　Close #ff

'-------------------------------------------------
　　ff = FreeFile
　　Open "c:\text2.txt" For Append As #ff '追加

　　For Each ws In Worksheets
　　　　tmpStr = tmpStr & ws.Name & "," & ws.Cells(1, 1).Value & ","
　　Next

　　tmpStr = Left(tmpStr, Len(tmpStr) - 1)
　　Print #ff, tmpStr
　　Close #ff

End Sub

お礼

とても助かりました。ありがとうございました。

回答No.1

muyugusanjin

マクロの記録を使用して、其の動作を手動で再現して見ては？
その後、余計なコードを整理する必要が有りますが。

お礼

ありがとうございます。試してみます。