Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35369 / 76807

←次へ　｜　前へ→


	【46639】ハイパーリンクについて

コジコジ - 07/2/8(木) 18:53 -


	引用なし

	パスワード

あるシートに記入いてあるデータを別のブックのシートへ登録しようと思うのですが、ハイパーリンクの設定で悩んでます。
ADODBでブックを開かずに登録しています。
通常のデータは問題ないのですが、あるフィールドにハイパーリンクを設定した状態で登録するにはどうすれば良いでしょうか。
サンプルコードです。
======================================================================
Private Sub test()
Dim myCon As New ADODB.Connection
Dim myRS As New ADODB.Recordset
Dim myFile As String
Dim conSTR As String
Dim EntTime As Date

　　myFile = "\\Server1\\test\testDB.xls"
　　conSTR = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
　　　　　　 "Extended Properties=Excel 8.0;" & _
　　　　　　 "Data Source=" & myFile
　　myCon.Open conSTR
　　myRS.Open "[テスト$]", conSTR, adOpenStatic, adLockPessimistic
　　With myRS
　　　　.AddNew
　　　　.Fields!部署 = Sheets("CTRL").Range("部署")
　　　　.Fields!社員NO = Sheets("CTRL").Range("社員NO")
　　　　.Fields!依頼者 = Sheets("CTRL").Range("氏名")
　　　　.Fields!文書リンク = xxxxxx
　　　　myRS.Update
　　End With
　　myRS.Close
　　Set myRS = Nothing
　　myCon.Close
　　Set myCon = Nothing
End Sub
======================================================================
.Fields!文書リンクのフィールドに任意の文字列(例えばABC)にサーバー上の特定のファイル("\\Server1\test\ABC.xls")にハイパーリンクを設定した状態で登録したいのですが上手くいきません。何方かご教授願えませんでしょうか。

0 hits

▼

【46639】ハイパーリンクについて コジコジ 07/2/8(木) 18:53

≪