FDに保存した、エクセルのファイルが呼び込めないのは?
大事なデータなので、困っています。

A 回答 (4件)

こんにちは



 以下のページがご参考になるのでは?

[XL2000] ファイルにアクセスできなくなった場合の原因と対策
http://www.microsoft.com/JAPAN/support/kb/articl …

[XL2000] フロッピーディスクに保管されているファイルを扱う際の注意点
http://www.microsoft.com/JAPAN/support/kb/articl …

Microsoft Excel Viewer 97
http://officeupdate.microsoft.com/japan/download …

XL: Summary of Methods to Recover Data from Corrupted Files
http://support.microsoft.com/support/kb/articles …

XL2000: Methods for Recovering Data from Damaged Workbooks
http://support.microsoft.com/support/kb/articles …

参考URL:http://www.microsoft.com/JAPAN/support/kb/articl …
    • good
    • 0

 もしかして、今お使いのパソコンに、Excelがインストールされていないのでは。


 また、#1さんや#2さんの意見、同感です。
    • good
    • 0

FDからファイルをHDへ読み込めますか?


さらに、こぴーしたファイルで開けないですか?
    • good
    • 0

次のことを思いつきました。


・古いバージョンのExcelで読みこもうとしている
 (古いバージョンの形式で保存してください)
・ディスクの形式が読みこめない形式
 (読みこめる形式のディスクにしてください)
・ディスクが壊れている
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

Qエクセルマクロでファイルを保存して閉じるときにファイル名に変数を付加して保存したいです。

エクセルマクロでファイルを保存して閉じるときにファイル名に変数を付加して保存したいです。

具体的にはファイルが閉じられるときに固定した名称の後ろに日付などを入れた形で保存したいと考えています。
どのように書けばよいのかわからなくて困っています。
教えてください。
宜しくお願いいたします。

Aベストアンサー

 yurarin99 さんのスキルにもよろうかと存じます。

1)先ず、お望みの名前でブックを保存するという動作を、普通に[新しいマクロの記録] を採ってみてください。
 ここで、ファイル名にスラッシュ「/」を使うことはできませんので、「(09/11/13)」というような形式で日付文字列を付加することはできませんね。スラッシュを省くかアンダーバーやピリオドなどのお好みの文字に換えて保存なさってください。

2)次に、上記で保存したマクロのコードの中で「(09_11_13)」の部分を
(" & Replace(Date, "/", "") & ")

(" & Format(Date, "yy_mm_dd") & ")
などに書き換えてマクロを実行するとお望みのことが達成されます。

3)自ブックでの操作でしたら、「Workbook_BeforeClose」イベントなどに記載しておけば、終了時に、自動的に保存できます。しかし、保存済みブックに逐一マクロが付随しますので、他のブックにマクロを記載しておいて、保存するブックをアクティブにしたタイミングで「ActiveWorkbook」を保存するのが好ましいかとも存じます。

 yurarin99 さんのスキルにもよろうかと存じます。

1)先ず、お望みの名前でブックを保存するという動作を、普通に[新しいマクロの記録] を採ってみてください。
 ここで、ファイル名にスラッシュ「/」を使うことはできませんので、「(09/11/13)」というような形式で日付文字列を付加することはできませんね。スラッシュを省くかアンダーバーやピリオドなどのお好みの文字に換えて保存なさってください。

2)次に、上記で保存したマクロのコードの中で「(09_11_13)」の部分を
(" & Replace(Date, "/",...続きを読む

Qエクセルで同じファイル名のファイルを別のファイル名で保存したい

エクセルで、社員に同じテンプレートのファイルに入力してもらい、それを集計するつもりです。集まったファイルは同じファイル名なので、別のファイル名としてフォルダに保存したいのですが、簡単にできる方法やフリーソフトはないでしょうか。

Aベストアンサー

メールの添付Book.xls(テンプレ)を開くと 集計Bookにシートを移動
準備
1.集計用のBookを作成(新規  集計.xls など)
2.Tool>マクロ>VisualBasicエディターを起動
3.ThisWorkBookに下記マクロを貼り付け
調整
1.テンプレ名 = "*" を実際のテンプレ名にする。
   *はワイルドカード 例 "*.xls" "*日報*.xls" 
2. Set 名前のセル = Workbooks(1).Sheets(2).Range("A1")の
  セルをテンプレの送信者の名前のあるセルにする。
       例  ・・・.Range("B5")など
3.テンプレのシートが複数なら・・・別途
  
使いかた
1.集計用のBook(マクロ入り)を開く
2.メールの添付 テンプレ.xls を開く。

結果 自動で
 エクセルで開いたときに シート(名前+日付)として テンプレを取り込む。
 開いたテンプレは自動終了するので
 同じ名前のBook、テンプレは同時に開くことを回避。
 

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
テンプレ名 = "*" '*テンプラ.xls" '実際に併せて設定
If Workbooks(2).Name Like テンプレ名 Then

Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False

On Error Resume Next
'メールの添付Book(テンプレ)を開くと 集計Bookにシートを移動
Workbooks(2).Sheets(1).Copy after:=Workbooks(1).Sheets(1)
Workbooks(2).Close
'送信者識別処理、重複防止処理、シート名変更処理
Set 名前のセル = Workbooks(1).Sheets(2).Range("A1")
提出者名 = 名前のセル.Value '提出者名
シート名 = 提出者名 & Format(Now, "yymmdd") '名前+日付
Err = 0
If Workbooks(1).Sheets(シート名).Name = シート名 Then
'既にこの人のテンプレは読み込み済み:更新しない処理??
If Err = 0 Then Workbooks(1).Sheets(2).Delete
End If

If Err Then
'新しい読み込みシート
Workbooks(1).Sheets(2).Name = シート名
End If

Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True

End If

End Sub

メールの添付Book.xls(テンプレ)を開くと 集計Bookにシートを移動
準備
1.集計用のBookを作成(新規  集計.xls など)
2.Tool>マクロ>VisualBasicエディターを起動
3.ThisWorkBookに下記マクロを貼り付け
調整
1.テンプレ名 = "*" を実際のテンプレ名にする。
   *はワイルドカード 例 "*.xls" "*日報*.xls" 
2. Set 名前のセル = Workbooks(1).Sheets(2).Range("A1")の
  セルをテンプレの送信者の名前のあるセルにする。
       例  ・・・.Range("B5")など
3.テンプレのシ...続きを読む

QFDに保存したExcelデータが読み取り専用で開かない

FDに保存したExcelデータが開けません。
読取専用と出てしまい、アプリとしてExcelは起動しますが
中はからっぽのまま。
FD(Aドライブ)までは正常に開く。
1、FD内の別ExcelデータはFD内のアイコンダブルクリックで開けます。
2、Excelを開く→メニューの開くから該当FD内Excelを指定→NG
3、プロパティを開くと以下エラーで強制終了
「このプログラムは不正な処理を行ったので強制されます。
終了しない場合はプログラムの製造元に連絡してください。」
4、名前の変更は可能。
5、デスクトップへのコピーも不可。3と同様のエラー
6、Dosプロンプトで見ると同FDに入っている3データ全て
  一番左に表示されるファイル名にチルダがついています。
  ですがこの内1つは正常に開き、残りは開きません。

外部参照すればいいんですかね?
外部参照の方法を知りたいです。
ちなみにOSはWin98、
PC:IBM300GL、COMPAQ2台共に同様の現象です。

宜しくお願いします

Aベストアンサー

マイクロソフトのサイトで下記のサイトはどうでしょうか。

http://support.microsoft.com/default.aspx?scid=%2Fisapi%2Fgomscom%2Easp%3Ftarget%3D%2Fjapan%2Fsupport%2Fkb%2Farticles%2Fjp411%2F6%2F36%2Easp&LN=JA

Qエクセル2010 データを管理番号ごとに分割し、別のファイルとして保存する。

エクセルVBAがまったくわからないので、宜しくおねがいします。

大量データをB列の管理番号毎に、ファイルを作成し保存したいと思います。

これはVBAを使えば早くできると思うですが、どのように書けば
よいのかわかりません。

今出先で、B列の管理番号毎に分けることはわかっていたのですが。。。

どなたか教えていただけませんでしょうか?

現在はアクセスにデータをインポートし、クエリで管理番号を手打ちして
抽出して、保存してエクスポートしています。

エクセルVBAを勉強していないのですが、宜しくおねがいします。

Aベストアンサー

こんなものはいかがでしょうか?
-----------------------------------------------------------------------------
Sub 管理番号ごとに分割()
Dim 保存先 As String
Dim 行 As Long
Dim ファイル名 As String
Application.ScreenUpdating = False
保存先 = ThisWorkbook.Path & "\管理番号"
If Dir(保存先, vbDirectory) = "" Then MkDir 保存先
ActiveSheet.Copy Before:=Sheets(1)
Sheets(1).Name = "作業"
Cells.Sort _
Key1:=Range("B2"), _
Order1:=xlAscending, _
Header:=xlYes, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
SortMethod:=xlStroke, _
DataOption1:=xlSortNormal
行 = Cells(Rows.Count, 2).End(xlUp).Row
Do While 行 >= 2
ActiveSheet.Copy Before:=Sheets(1)
Sheets(1).Name = "Data"
For 行 = 2 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(行, 2).Text <> Cells(行 + 1, 2).Text Then
Rows(行 + 1 & ":" & Rows.Count).Delete Shift:=xlUp
Sheets(1).Copy
ファイル名 = 保存先 & "\管理番号" & Cells(2, 2).Text & ".xlsx"
If Dir(ファイル名) <> "" Then Kill (ファイル名)
ActiveWorkbook.SaveAs _
Filename:=ファイル名, _
FileFormat:=xlOpenXMLWorkbook, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Rows("2:" & 行).Delete Shift:=xlUp
Exit For
End If
Next
行 = Cells(Rows.Count, 2).End(xlUp).Row
Loop
If Sheets(1).Name = "作業" Then
Application.DisplayAlerts = False
Sheets(1).Delete
Application.DisplayAlerts = True
End If
Application.ScreenUpdating = True
MsgBox ("終了しました")
End Sub
-----------------------------------------------------------------------------
※ 終了までスピードアップの為、画面の書き換えを止めています。不安になって嫌でしたら、次の2行を削除して下さい。
「Application.ScreenUpdating = False」
「Application.ScreenUpdating = True」

こんなものはいかがでしょうか?
-----------------------------------------------------------------------------
Sub 管理番号ごとに分割()
Dim 保存先 As String
Dim 行 As Long
Dim ファイル名 As String
Application.ScreenUpdating = False
保存先 = ThisWorkbook.Path & "\管理番号"
If Dir(保存先, vbDirectory) = "" Then MkDir 保存先
ActiveSheet.Copy Before:=Sheets(1)
Sheets(1).Name = "作業"
Cells.Sort _
Key1:=Range("B2"), _
Order1:=xlAscending, _
Header:=xlYes, ...続きを読む

Qエクセルでファイルの上書き保存も名前をつけて保存もできない。

ネットワークで繋いで社内の別のパソコンのハードに保存されている、エクセルの
作業を1日していたのですが、今までは何の問題もなく保存できていたのですが、
突然、「ファイルを保存できませんでした」とエラーになってしまいます。
そのコメント内のヘルプを開くと、保存する充分な空き容量がないか、保存中に
Escキーを押した・・・・などとあるのですが、どれも当てはまりません。
今日の作業中で、何度か保存をしたのですが、その時は保存できたんです。
保存先を変更しても保存することができません。
大事なデータなのでどうしても保存しなくてはならないのですが、原因が全く
わかりません。
環境は、WindowsNTでエクセル97だと思います。

Aベストアンサー

ネットワークについては他の回答があるようなので、別の内容でお答えします。

1.保存できないのは特定のファイルのみでしょうか?
特定のファイルのみであれば、ファイルが破損している可能性が大きいです。自分のHDに保存し、名前をつけて保存してみてください。
しかし、全く書き込みができない状態の場合は、ハードディスクが圧迫されていることも考えられます。(windows\systemフォルダの容量を調べる)。
基本的には消してはまずいファイルなので隠しファイル設定になっているので、「表示」-「フォルダオプション」-「表示」でSystemフォルダが表示できます。

2.他の端末からアクセスして保存ができるのか?
社内の別のパソコンのハードへのアクセス権を確認してください。

3.EXCELファイルのアイコンで右クリックし、プロパティを選び読み取り専用はオフになっているか?

頑張ってください。


このカテゴリの人気Q&Aランキング

おすすめ情報