(1).ある時パソコンが突然立ち上がらなくなりました。
現象としては電源を入れたらバイオスは見れますが、OSの読み込み直後立ち上がらなくて
初期なんとか（忘れましたが）という画面が出てそれ以上進みません。
仕方がないので手動で電源を切りました、その後電源を入れたところ
CD コマンド CD インターネット CD X X X X 及びWindows 通常起動 の文字が表示
Windows 通常起動 を選択して起動しようとしたところ、上記の初期何とかが出て立ち上がりません。
私の貧弱な経験から言ってこれはCPUもしくはマザーボードが悪さをしていると判断しました。
何故ならハードディスクが壊れると青色反転してわけのわからない文字が羅列するが、
今回はそのような青色反転現象はありません。
(2).また少し前からシャットダウン時電源が切れるのが時間がかかるようになりました。
ということはCPUが熱を持っていて切れが遅いと判断しました。
そこでCPUクーラー（水冷式）を取り外して、クーラーとCPUの合わせ面に熱伝導グリスを塗って組み上げました。
組み上げたCPUクーラーは以前ついていた水冷式の同じものを使いました。
電源を入れたすぐ後にCPU熱異常（そのような表現がモニターに表されていた）でシャットダウンしました。
そこで空冷式のCPUについていたオリジナルのクーラーに変更しました。
シャットダウン時の電源の切れが遅いことはなくなりました。
OSを新規にSSDにインストールした結果 当初の不具合（立ち上がり不良）は解消しましたが
(3).アプリ等をインストール後再起動時電源が切れることがありました。
SSDを手持ちのHDD(ほとんど使っていないもの)に変えてOSを新規にインストールした結果
上記SSDと同じ現象のことが起きました。 結果SSDとHDDの不良によるものでないと判断しました。又メモリー診断をした結果不具合はありませんでした。
バイオスが立ち上がることから、CPU内部の何か異常と思っています。
皆様からのご回答を見てCPUを交換しようかと思っています。
(4).このような不良はCPUの異常によるものでしょうか、教えてください。
今何とか動いていますから、不具合解消までこのまま行こうかと思っています。
スマホアプリで作成したデータをパソコンのExcelから開きたいです。
vbaで操作したいのですが、アプリでエクスポートされたファイル名は日々名前が変わります。
Open Filenameで操作したいです。
Sub Sample1は開きますが、毎日ファイル名をて入力しなければなりません。
Sub Sample1()
Workbooks.Open Filename:="C:\Users\closeinlove\Dropbox\アプリ\ExcelCalendarLite\cal-excel-160906.xls" '←「yymmdd.xls（年年月月日日）.xlsの数値が入っています」
End Sub
Sub Sample2に日々変わるファイル名の数値の部分を*に置き換えましたが、駄目でした。実行エラー1004
Sub Sample2()
Workbooks.Open Filename:="C:\Users\closeinlove\Dropbox\アプリ\ExcelCalendarLite\cal-excel*.xls"
End Sub
Sub Sample3に日々変わるファイル名の数値の部分を??????に置き換えましたが、駄目でした。実行エラー1004
Sub Sample3()
Workbooks.Open Filename:="C:\Users\closeinlove\Dropbox\アプリ\ExcelCalendarLite\cal-excel-??????.xls"
End Sub
ファイル名の変わる部分の指定方法を教えて下さい。
