|
▼keisuke さん:
初心者が色々貼り合わせてやってしまってますのでお恥ずかしい限りですが、下記を作ってみたもののうまくいきません。
ワークシートのセルC8には出張から帰って来た帰着日の日付データが入っています。
とりあえずこのセルに出張から帰国した日を入れると、別のフォルダーに格納されている、帰着日の為替換算リストが記載されたアウトルックデータを開きたく。
アウトルックデータは例えば2010年8月20日分なら"200810"という名前でTestというフォルダーに格納されております。
下のコードではC8の日付データを参照させるところまで行っておりませんでして、とりあえずC8のセルデータが変更されると、200810のファイルを開こうとしてみましたが、これもうまく行きませんでした。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C8")) Is Nothing Then
Exit Sub
Else
Dim StrFN As String
StrFN = "C:\Documents and Settings\デスクトップ\Test¥200810.Outlookアイテム"
If Dir(StrFN) <> "" Then
MsgBox Dir(StrFN) & "が見つかりました。"
Else
MsgBox "ファイルが見つかりません。"
End If
End If
End Sub
|
|