メモ帳書き出し - 鶏肋

2009/07/02 (Thu) 22:08:06

こんにちは。
excelの内容のメモ帳書き出しについて質問です。
以下のようなことをしたいのですが。
（１）excelのセルA1からデータの入っているところまでをメモ帳に書き出す。
（２）メモ帳に「sample」という名前を付けてデスクトップに保存する（拡張子も変更）
（３）もしすでに「sample」という名前のファイルがあったら上書き（上書き確認メッセージ表示しない）。
なければそのまま「sample」という名前を付けて保存
（４）メモ帳を閉じる。

そこで以下のようなマクロを書いてみました。

sub memo()

Dim taskID As Double
Dim copyRange As Range

taskID = Shell("Notepad.exe", vbNormalFocus)
Range("A1").Select
Set copyRange = Range(Selection, Selection.End(xlDown))
copyRange.Copy

AppActivate taskID
SendKeys "^v", True
SendKeys "%FA", True
SendKeys "%N", True
SendKeys "sample.bat", True
SendKeys "{Enter}", True
SendKeys "%Y", True
SendKeys "%FX", True

end sub


このマクロでは、「sample」というファイルがないときは（１）〜（４）の内容が実行できるのですが、「sample」というファイルがあるときは、「上書きしますか」というメッセージが出てマクロが止まってしまうことがよくあります。
しかし、止まってしまうのも毎回ではなく、たまにそのまま上書きできることもあります。

ただ、さきほどのマクロの前後に別の内容が加わり長いマクロになると、ほぼ100%自動上書きず、「上書きしますか」のメッセージが出てきてマクロが止まってしまいます。

原因がよくわからないのですが、これはexcelが不安定ということであきらめるしかないのでしょうか。

何かよい解決案はございますでしょうか。

よろしくお願いいたします。

ファイル名一覧表自動作成 - 鶏肋

2009/06/22 (Mon) 21:42:37

こんにちは。
現在、特定のフォルダ内にあるファイル名をexcelに一覧として自動作成したいのですが、自分でできるのは下記のようなところまでです。


Sub FileName()

Dim myFileName As String
Const myDir As String = "C:\"

Application.ScreenUpdating = False
Cells.Clear
Range("A2").Value = "ファイル名"

myFileName = Dir(myDir & "*", vbHidden + vbSystem)

While myFileName <> vbNullString
Cells(Rows.Count, 1).End(xlUp).Offset(1).Value _
= myFileName
myFileName = Dir()
Wend

Columns(1).AutoFit
Application.ScreenUpdating = True

End Sub

これだと対象となるファイルがCドライブの直下のフォルダのときはいいのですが、そうでないときは、困ります。業務プロジェクトごとにフォルダがあるので、いちいちそれをCドライブの直下フォルダにコピーペーストするのも大変です。
また、人によってデータを保存しているドライバが違うので、同僚に渡したとき、いちいち"C:\"のところを変えなければなりません。

で、質問なのですが、"C:\"のところを例えば、「アクティブシートのA1セルに記されたパス名を参照する」などのようにしたいのですが、どうすればよいのかわかりません。

ご教示よろしくお願いいたします。

年ごとにフィルタ抽出したものを別のシートにコピーしたい - SI

2009/06/16 (Tue) 16:14:59

はじめまして、マクロを少しかじった程度のレベルなのでご教授ください。
データを年ごとにフィルタ抽出したものを別のシートにコピーしたいのですが、
マクロでかのうでしょうか？ 原本のデータをほかのシートには1回のみできるのですが貼り付けるシートを変更できません。よろしかったら教えてください。
現在このようにマクロしています。

For I = 2004 To 2009 Step 1
Sheets("D").Select
Range("G2") = I
Call 年別抽出
Sheets("2004").Select
Range("A11").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("D").Select
Range("F2").Select
Next I

Sub 年別抽出()
Range("C2:D2").Select
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A11:FZ2696").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("C4:D5"), Unique:=False
Range("A11").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Range("A11:FZ2697").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
End Sub

シートを替えるにはどのようなマクロがいいでしょうか？

投稿者削除 - (削除)

2009/06/13 (Sat) 14:06:28

(投稿者により削除されました)

ダイアログ [キャンセル] で実行時エラーになってしまいます。 - かずお

2009/06/03 (Wed) 16:13:39

　お世話になります。ダイアログから保存ファイルを選択しモードレスでユーザーフォームの表示はできるのですが、ダイアログを [キャンセル] した場合には「実行時エラー'9':インデックスが有効範囲にありません。」となってしまいます。どのようにしたら宜しいでしょうか、御教授をお願い致します
。

Private Sub CommandButton1_Click
Me.Hide
ChDrive "D"
ChDir "D:"
Application.Dialogs(xlDialogOpen).Show
UserForm2.Show
End Sub

UserForm2.Showのところでエラーになります。以上ですが宜しくお願い致します。

マクロの制御 - 山村　清

2009/05/14 (Thu) 21:21:04

マクロをマクロで制御したいのですができるでしょうか？

インディクスが有効範囲にありませんのエラーがでてしまいます。 - かずお

2009/05/14 (Thu) 10:36:20

お世話になります。同じシート名（サンプル）のある他のブックに貼り付け動作確認をしたところエラーになってしまいました。言葉が足りずにすみません。　
　位置として以下の◇マークのところに入れたいのですが宜しくお願い致します。

Private Sub CommandButton1_ClicK()

'◇

Columns("B:B").Select
Selection.ColumnWidth = 7.38
Rows("1:1").Select
Selection.RowHeight = 24.5
Selection.VerticalAlignment = xlCenter
Range("B1").Select
ActiveCell.FormulaR1C1 = "タイトル："
Range("H1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("C1:F1").Select
Selection.Merge
With Selection
.HorizontalAlignment = xlLeft
End With
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
Range("B3").Value = "測点"
Range("C3").Value = "距離"
Range("D3").Value = "内角"
Rows("3:3").Select
Selection.HorizontalAlignment = xlCenter
Range("B3").Select
ActiveCell.CurrentRegion.Select
Selection.Borders.LineStyle = xlContinuous
Range("B1:F1").Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
End With
Range("C1").Select
Me.Hide
UserForm1.Show
End Sub

インディクスが有効範囲にありませんのエラーがでてしまいます。 - かずお

2009/05/13 (Wed) 13:51:13

　お世話になります。　作業用シートの有無を調べて無ければ追加し、有れば「作業シートを確認しました」のメッセージを出すようにしました。
　テストでは問題はありませんでしたが、同じシート名（サンプル）のある他シートではエラーがでてしまいます。どの様にしたら宜しいか御教授をお願いします。

Dim mySht As Worksheet
Dim rg As Range
Worksheets("サンプル").Select
Columns(1).Clear
Range("A1").Value = "シート名"
For Each mySht In Worksheets
Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = mySht.Name
Next
Set mySht = Nothing
Worksheets("サンプル").Select
Set rg = Cells.Find("トラ")
If rg Is Nothing Then
MsgBox "作業シートを作成します。"
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "トラ"
Else
MsgBox "作業シートを確認しました。"
End If
Worksheets("サンプル").Select
Columns(1).Clear
Range("A1").Select
Worksheets("トラ").Select
Set rg = Nothing

　以上ですが宜しくお願い致します。

型が一致しませんの実行時エラーが出てしまいます。 - かずお

2009/05/05 (Tue) 23:36:16

連絡が遅くなりすみません。その後いろいろと試したところサクッと行きました。元文を残さず弄り過ぎて比較出来ませんが、おそらく以下省略で省きましたEnd Ifの位置がまずかった様です。
　貧弱な説明を質問としてすみませんでした。
本質問は取り下げさせて頂きます。
　

投稿者削除 - (削除)

2009/04/30 (Thu) 14:35:05

(投稿者により削除されました)