現在、Windows XPをサーバーに仕立て、ファイルを共有しています。
新しいパソコン(Windows 7)を買ったので、XPとの共有を考えています。
設定を終えてXPの共有フォルダへのアクセスはできたのですが、反応が遅いです。
ファイルのダウンロードに通信速度が非常に遅く(1MBくらい)失敗します。
エラー内容は、「ファイルハンドルが無効です。」と言われます。

Windows 7(pro 64bit)からWindows XP上の共有フォルダへアクセス方法を
教えてください。よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

エラーメッセージ自体はネットワークが不安定になり、正常な通信が出来ないという意味なので、これだけでは原因が分かりません。


うちの環境では7 64bitとXPで1MBなら1秒もかかりません。
これまでと同じ機器で起きたという点から、物理的な原因とはいえず、ファイアウォール関係ではないでしょうか。
パソコンにインストールされているセキュリティソフトを一時的に無効にしてみるといかがでしょうか。
ネットワークを社内ネットワーク/家庭内ネットワークにかえてみていかがですか。
IPアドレスがバッティングしていませんか。
ルーターを再起動させても変化無しでしょうか。

思いつく限りで・・・。
    • good
    • 0

>ファイルハンドルが無効です



XPにSP3を当てたり、更新(修正など)していますか?(SP2はサポート終了)
参考URL

>反応が遅いです

Windows 7搭載機はメモリー不足がありませんか?
Windows 7はVista改良版とはいえ、(VistaではOS起動するだけでメモリー1GB近く消費します)XPと比較するとかなり作業などが遅いです。

参考URL:http://support.microsoft.com/kb/946480/ja
    • good
    • 0
この回答へのお礼

早々のご回答ありがとうございます。

XPはSP3になっていました。
WINDOWS7は、AMDヘキサコアの最新CPUでメモリ4GBです。

いろいろ試してみましたがうまくいかず、
WINDOWS7に今まで使ったことのないPC Toolsのファイアウォール+を導入していたのに気が付き、削除してWindowsファイアーウォールも停止した状態で試したらダウンロードできるようになりました。
ファイアウォール+を停止しただけでは、症状は変わりませんでした。

結果的には、ファイアウォールが原因でした。
ありがとうございました。

お礼日時:2011/04/21 13:57

このQ&Aに関連する人気のQ&A

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

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

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

Qネットワーク上のコンピュータにファイルをコピーできない

社内にWEBサーバーを置いています。

同じネットワークにいるので、自分のPCから公開しているフォルダを開いて(公開しているフォルダにはパスワードの設定がしてあります。ユーザー名とパスワードを入力するとフォルダは開けます。)
直接ファイルをコピーしようとしたら、
「ファイルまたはフォルダのコピーエラー」が出て、エラーメッセージは、「・・・をコピーできません。アクセスできません。ディスクがいっぱいでないか、書き込み禁止になってないかまたはファイルが使用中でないか確認してください」と書かれています。
しかし、この方法でコピーできた時もあります。
WEBサーバーはWinNTServer,自分のPCはWinXPProです。

アップロードをこのやり方でやろうとするのが間違っているのでしょうか?
教えて下さい。

Aベストアンサー

クライアントPCのWebブラウザからじゃなくてエクスプローラー上からファイルコピーしようとしてるんですよね。

外していなければ、ですが。
コピーできた時とできなかった時ってユーザーが違ってたりしませんか?

サーバーの公開フォルダにファイルをコピーする必要があるすべてのユーザーに対して「追加」やら「変更」やら「フルコントロール」など、ファイルを書込みできるアクセス権があるかどうか、確認してみてはどうでしょうか。

2箇所設定する必要があります。
Serverで共有フォルダのプロパティを表示し、
・[共有]タブの[アクセス権]
・[セキュリティ]タブの[アクセス権]
この2箇所を設定します。

Q別のシートから値を取得するとき

Worksheets("シート名").Activate
上記のを行ってから別シートの値を取得するのですが、
この処理を行うと指定したシートへ強制的にとんでしまいます。。。

※イメージ
For ~ To ~
  Worksheets("シートA").Activate
  シートAの値取得
       :
  Worksheets("シートB").Activate
  シートBの値取得
Next

このイメージ処理を行うとものすごい勢いで画面がチカチカします。。。
シートを変えずに他のシートから値を取得する方法はないのでしょうか。
教えてください!

Aベストアンサー

Worksheets("シートA").Range("A1")

みたいな感じでできませんか?

Q【Excel】 色の一致するセル数をカウントしたい。

こんにちは。

ある条件にあてはまるセルに、書式でセルの色を設定してあります。
いくつかの条件で色分けしてあるのですが、これらのセルの色が「赤」は幾つ、「青」は幾つというふうに、
カウントすることは出来るのでしょうか。

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

Aベストアンサー

繰り返し何度も出てくる質問です。関数でと考えているなら、直接はできません。
VBAで中身たった1行のユーザー関数を作ればできます。
http://hp.vector.co.jp/authors/VA016119/hajimete/udf1.html
など
Googleで「エクセル セル 色 カウント」などで照会すると似た質問が出る。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1225959
にはCELL関数のことも載っているが、旧いバージョンの関数なので
私は、除外して言ってます。

Q背景色のカウント方法

いつもお世話になります。
Win7 Excell2010 です。

背景色のついたセルを関数でカウントしたく色々と調べました。
マクロでは知識不足の私なのでなんとか関数でと思ったのですができないようです。
何かいい方法で関数ではやはり無理でしよう

カウントするには関数か若しくはVBAでご指導仰ぎたいです。
私としては申し訳ないですが知識がなく是非ご協力いただけないでしょうか。

お願いは、例えば
B7 ~ B17 で “青色” B125=1
C7 ~ C17 で “青色” C125=2
D7 ~ D17 で “赤色” D125=1
 のようにカウントができればいいです。

よろしくお願いします。

Aベストアンサー

こんばんは!

7~17行目の色付けは手作業でしょうか?それとも条件付き書式によって色付けされているのでしょうか?
Excel2010以降であれば、
条件付き書式で色付けされているセルが判断できる「DisplayFormatオブジェクト」が使えます。

一例です。
A列の124行目以降のセルを検索したい色にあらかじめ塗りつぶしておいてください。

Sheetモジュールです。
尚、1行目は何らかのデータが入っているという前提です。
(A列の最終行を取得するために、ダミーでもよいので1行目に何らかのデータが必要です)

まず、手作業で色を付けている場合のコードです

Sub 条件付き書式なし()
Dim i As Long, j As Long, k As Long, endRow As Long, endCol As Long
endRow = ActiveSheet.UsedRange.Rows.Count
endCol = Cells(5, Columns.Count).End(xlToLeft).Column
If endRow > 123 Then
Range(Cells(124, "B"), Cells(endRow, endCol)).ClearContents
End If
For j = 2 To endCol
For i = 124 To endRow
For k = 7 To 17
If Cells(k, j).Interior.Color = Cells(i, "A").Interior.Color Then
Cells(i, j) = Cells(i, j) + 1
End If
Next k
Next i
Next j
Range(Cells(124, "B"), Cells(endRow, endCol)).SpecialCells(xlCellTypeBlanks) = 0
End Sub

次に条件付き書式によってセルが色付けされている場合のコードです。
(内容はほとんど一緒です)

Sub 条件付き書式で色付け()
Dim i As Long, j As Long, k As Long, endRow As Long, endCol As Long
endRow = ActiveSheet.UsedRange.Rows.Count
endCol = Cells(5, Columns.Count).End(xlToLeft).Column
If endRow > 123 Then
Range(Cells(124, "B"), Cells(endRow, endCol)).ClearContents
End If
For j = 2 To endCol
For i = 124 To endRow
For k = 7 To 17
If Cells(k, j).DisplayFormat.Interior.Color = Cells(i, "A").Interior.Color Then
Cells(i, j) = Cells(i, j) + 1
End If
Next k
Next i
Next j
Range(Cells(124, "B"), Cells(endRow, endCol)).SpecialCells(xlCellTypeBlanks) = 0
End Sub

※ 空白セルには「0」を表示するようにしていますが、「0」が目障りであれば
最後の
>Range(Cells(124, "B"), Cells(endRow, endCol)).SpecialCells(xlCellTypeBlanks) = 0
の1行を削除してください。m(_ _)m

こんばんは!

7~17行目の色付けは手作業でしょうか?それとも条件付き書式によって色付けされているのでしょうか?
Excel2010以降であれば、
条件付き書式で色付けされているセルが判断できる「DisplayFormatオブジェクト」が使えます。

一例です。
A列の124行目以降のセルを検索したい色にあらかじめ塗りつぶしておいてください。

Sheetモジュールです。
尚、1行目は何らかのデータが入っているという前提です。
(A列の最終行を取得するために、ダミーでもよいので1行目に何らかのデータが必要です)

まず...続きを読む


人気Q&Aランキング

おすすめ情報