最近職場のPCが変わったら、WordやAccessで難しい漢字が「・」というふうに文字化けしてしまうようになりました。
ちなみに、関連があるかもしれない思いつく情報を記しておきますと、
-Windows XP Professional Version 2002 SP3で、Office2003を使用
-文字鏡をインストール済
-ATOK2006
上記3点について全く同じ環境の別のPCでは、化けることなくきちんと表示されます。何かの設定が違っているのでしょうか。
業務上このままでは非常に不便で差し障りがあるので、なんとか解決策がないかと思い質問いたしました。
おわかりになる方がいらっしゃれば、ぜひご回答をよろしくお願いします。
初めまして。
色々インターネット等で検索して作成してみたのですが、
ここから先のプログラムが組めないので、
やり方を教えて頂けますと幸いです。
おそらくIf Elseで場合訳すると思うのですが、
上手くできてません。
下記、プログラムの概要です。
(1)フォルダを指定し、そのフォルダにある全てのCSVファイルを読み込む。
(2)CSVファイルを読み込む際には、「*.csv」の「*」部分をワークシート名とし、CSVファイルの内容をワークシートに書き込む。
例）「test.csv」の場合、ワークシート名は「test」になります。
(3)既にブックにワークシート名がある場合は上書き処理を行い、ない場合は新規に作成する。
例）既に「test」ワークシートがある場合は、内容の上書きを行います。
(4)ワークシートを追加する際は、今あるワークシートの最後に追加する。
下記に現在作ったプログラムを記載します
---------------------------------
Sub csvRead()
Dim FoldPath As String
Dim f
Dim ch1 As Long
Dim r As Long
Dim textLine As String
Dim csvLine() As String
Dim i As Long
Dim FSO
Dim folderSelect As Object
Set folderSelect = CreateObject("Shell.Application"). _
BrowseForFolder(0, "フォルダを選択してください", 0)
If Not folderSelect Is Nothing Then
FoldPath = folderSelect.Self.Path 'フォルダ選択
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
i = Worksheets.Count '現在のワークシート数を格納
For Each f In FSO.GetFolder(FoldPath).Files
If StrConv(Right(f.Path, 4), vbLowerCase) = ".csv" Then
ch1 = FreeFile
Open f.Path For Input As #ch1
r = 1
Worksheets.Add after:=Worksheets(i)
With ActiveSheet
.Name = Left(f.Name, Len(f.Name) - 4)
Do While Not EOF(ch1)
Line Input #ch1, textLine
If textLine <> "" Then
csvLine() = Split(textLine, ",")
.Range(Cells(r, 1), Cells(r, UBound(csvLine()) + 1)) = csvLine()
End If
r = r + 1
Loop
End With
i = i + 1
Close #ch1
End If
Next
End Sub
（Temporary Internet Filesから）削除できないCookieが35個あり困っています。
OS：Windows Vista
ブラウザ：Internet Explorer 8（普段はSleipnirです）
自分が試したCookieを削除する方法は以下の４つです。
・インターネットオプション履歴の削除を使う
・Temporary Internet Filesで全てを選択して削除
・Cookies Managerで削除
・CCleanerで削除
いずれも35個（Temporary Internet Files）だけは必ず残っています。
試しに開いてみたところ、いずれも
「C:\Users\AppData\Roaming\Microsoft\windows\Cookies\ファイル名 が見つかりません」となってしまい、
実際にC:\Users\AppData\Roaming\Microsoft\windows\Cookies\を開いてみてもCookieは見当たりません。
Cookies Managerにおいても表示されません。
そもそも何故違う場所にあるのか分かりませんが、
Temporary Internet Filesでしか表示されないということは、
実体が無いのに残っているようにも見えるんですが…。
どうすればこのCookieを削除できるでしょうか。
