- ベストアンサー
ＶＢＡでショートカットのプロパティを変更するには
いつもお世話になります。 下記のようなフォルダがあり、"CCC.xls"から"AAへのショートカットショートカット"をアクセスして、"AAA.jpg"を開いています。 D:\A\AA\AAA.jpg D:\A\BB\AAAへのショートカット.lnk D:\A\CC\CCC.xls しかし、フォルダＡごと別のドライブ（例Ｅ）にコピーした場合、ショートカットのプロパティを確認するとＤドライブのままになっているため、うまく動作しません。 そこで、ショートカットのプロパティをＤドライブに変更したいのですが、方法を教えて頂けますでしょうか？ よろしくお願いします。
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- Wendy02
- ベストアンサー率57% (3570/6232)
こんにちは。 話が良く分からないですね。 >D:\A\BB\AAAへのショートカット.lnk これは。フォルダ指定（変更）のショートカットでは？ ショートカットなど使わずに、直接、VBAで処理すればよいと思うのです。あえて、ショートカットを書き換えようなんて、難しいことを考えなくてもよいと思うのです。 それに、ファイルをCopy したところで、VBAでは、ドライブが存在する限りは、フル・ファイル名を入れれば、カレントドライブは関係ないと思います。 それと、例えば、 Fname ="D:\A\AA\AAA.jpg" Set objWshShell = CreateObject("WScript.Shell") objWshShell.Run Fname で開けばよいのでは？ ただし、ドライブ+フォルダ+ファイル名は、ショートネーム(8.3型）にしてください。（質問のままなら、8.3型で使えます。） jpg の拡張子のアプリケーションが登録されていることが条件ですから、そうでない場合は、Shell で、アプリケーションから開く必要があります。
お礼
ご回答ありがとうございます。 敢えてショートカットにしているのは、フォルダ内に複数のjpgファイルがあり、これらのファイルはエクセルと同じフォルダに置いたショートカットからアクセスしたかったわけです。 説明が適切でなく申し訳りませんでした。 D:\A\AA\AA1.jpg, AA2.jpg・・・ D:\B\BB\AAAへのショートカット.lnk D:\B\CC\CCC.xls
関連するQ&A
- サーバー保存先変更に伴うショートカットのリンク先変
組織替えによりサーバー保存先が変わりました。 これによりフォルダーに保存されているショートカットのリンク先を変更する必要となりました。 ネット検索してもこれと言う例題が見つからなかったため、ご教示いただければと思います。 変更前共有サーバー： \\AA\BB\CC\DD\EE\・・・・ 変更後共有サーバー： \\AA\FF1\FF2\FF3\DD\EE\・・・・ 変更したいことは、変更前の\\AA￥BB\CCのところを\\AA￥FF1\FF2\FF3に変更する。 \DD以降は変更なし。 １、 フォルダー内に作成したExcelファイルを保存しマクロを実行して変更する。 （デスクトップ内・サーバー内に使用） ２、 フォルダー内のlnkファイルのみを対象（数個あるとする） ３、 シートのセルD3に変更前のリンク先 \\AA\BB\CCを入力 シートのセルD5に変更する \\AA\FF1\FF2\FF3を入力する。 （汎用性を持たせるために、セルD3・D5を変更すると他部署にも使用可能） ４、 ショートカットのリンク先先頭が,” \\AA\BB\CC“であれば\\AA\FF1\FF2\FF3に書き換える （￥DD以降は変わらない） ５、 現在のフォルダー内だけか、下層フォルダーも変更するか Yes/Noで選択できるようにする。 ６、 ショートカットのファイル名は変更しない。 以上ですが宜しくお願いします。 ちなみに自分が作るマクロでは変数を日本語で宣言しています。 Fn ⇒ ファイル名 何か問題があるでしょうか？
- ベストアンサー
- Excel（エクセル）
- エクセルＶＢＡでショートカットリンクの変更をするには
エクセルＶＢＡで既存のショートカットファイル（～.lnk）のリンク先を変更するにはどうしたらよいでしょうか？ 既に出来ているショートカットのリンク先を調べ、条件に一致した場合、そのリンク先を変更するＶＢＡを作成したいと思っています。 ＷＳＨを使ってショートカットを作る方法は知っていますが、既存のショートカットのリンク先を調べる方法が分かりません。 用途は以下の通りです。 会社のサーバが変更になり、ネットワークドライブの割り当てを変更するように通達がありましたが、既にショートカットは数百個あり、手で修正するのが非常に大変です。 ドライブ又はフォルダを指定して、そのフォルダ内及びその配下にある全てのサブフォルダにある全てのショートカットファイルを調べ対象の場合、登録したあったリンクの内容を自動変更します。 （ルートフォルダの指定及びサブフォルダの移動部分のＶＢＡは作成隅です。） Qドライブのネットワーク割り当て 変更前：\\Domain01\Kanto\Tokyo\ 変更後：\\Domain01\Kanto\ ファイルの指定 変更前：Q:\Kaihatsu1\Keikaku01.xls 変更後：Q:\Tokyo\Kaihatsu1\Keikaku01.xls 以上、よろしくお願い申し上げます。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAで、コンボボックスのリストを変更したい
Excel97を使用しています。 フォーム上にコンボボックスを2個配置しています。 リストで使うシートは下記のようになっています。 Ａ列 Ｂ列 Ｄ列 １ ａａ ＢＢＢ ＡＡＡ ２ ｂｂ ＣＣＣ ＢＢＢ ３ ｃｃ ＣＣＣ ＣＣＣ ４ ｄｄ ＡＡＡ ５ ｅｅ ＢＢＢ 初期化した時に、RowSourceとしてComboBox1にはA1:A5、ComboBox2にはD1:D3を設定しています。 ComboBox2で、例えば「ＢＢＢ」を選択した時に、ComboBox1のリストが、B列に「ＢＢＢ」と入力されている内容のみ(この場合「ａａ」と「ｅｅ」)がリストにセットされるようにはできませんでしょうか？ ComboBox1の内容とB列のセルの内容が一致したら、そのセルの1つ左のセルの内容をリストに追加する、というようなコードを書いたのですが「予期しないエラー」と出てしまいました。 ご存知の方、どうぞよろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- ショートカットフォルダ内のファイル添付について
ｏｕｔｌｏｏｋを使っています。 Ｄドライブの１１１というフォルダへのショートカットをデスクトップ上においています。 ｏｕｔｌｏｏｋで添付アイコンをクリックして、 ファイルの場所を『デスクトップ』し、該当ショートカットを選ぶと、１１１．ｌｎｋが添付ファイルに遷移し、１１１フォルダ内のファイルが選べません。 これをデスクトップ上のショートカットをダブルクリックした時に、フォルダの中身が開くようにするにはどうすればいいのでしょうか？ 宜しくお願い致します。
- ベストアンサー
- その他（メールサービス・ソフト）
- VBA 実行時エラー 2147024893
下記のマクロを実行すると BBB.Save のところで、実行時エラー 2147024893(8007003)が発生します。 「ショートカット"C:\Documents and Settings\ユーザー名\MyDocuments\Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ\拡張子無しのファイル名.lnk"を保存できません。」 ヘルプをみると、オ－トメーションエラー(Error440)となっています。 いろいろ調べましたが解りません。助けて下さい。 Sub 自動起動設定() Dim AA, BB, CC, DD Dim AAA, BBB AA = ThisWorkbook.Path CC = ThisWorkbook.Name CC = Left(CC, Len(CC) - 4) Set AAA = CreateObject("WScript.Shell") DD = Left(AA, 2) & "Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ" Set BBB = AAA.CreateShortcut(DD & "\" & CC & ".lnk") BBB.targetPath = AA & "\" & ThisWorkbook.Name BBB.Arguments = "/n,/e," & AA & "\" BBB.WindowStyle = 1 BBB.WorkingDirectory = AA BBB.Save Set BBB = Nothing Set AAA = Nothing End Sub
- ベストアンサー
- Visual Basic
- ショートカットフォルダが開きません。
Ｄドライブに作成したフォルダをコピー→（デスクトップ上に）ショートカット貼り付けで貼り付けました。 でデスクトップ上のショートカットフォルダを開こうとしても開きません。Ｄドライブからフォルダを開くと開きます。 別のＤドライブに作成したフォルダは（デスクトップ上に作成した）ショートカットフォルダから開けます どういった原因でしょうか
- ベストアンサー
- Windows XP
- SELECT（結合）について
次のような操作がしたいのですが、 TestOya t1 t2 1 A 2 B TestKo1 k11 k12 k13 1 1 AA 1 2 BB 2 1 CC TestKo2 k21 k22 k23 1 3 AAA 1 4 BBB 1 5 CCC 2 2 DDD 取得したい結果 t1 t2 betumei1 betumei2 betumei3 1 A 1 1 AA 1 A 1 2 BB 1 A 1 3 AAA 1 A 1 4 BBB 1 A 1 5 CCC 2 B 2 1 CC 2 B 2 2 DDD betumei1には、k11またはk21 betumei2には、k12またはk22 betumei3には、k13またはk23 となるような結合がしたいのです。 アドバイスあれば宜しくお願いします。
- ベストアンサー
- SQL Server
- コマンドプロンプトのバッチファイルについて
ディレクトリ1に以下のようなファイルがあります。 "file01_05_aa.jpg" "file01_05_bb.jpg" "file01_05_cc.jpg" "file21_04_aa.jpg" "file21_04_bb.jpg" "file21_04_cc.jpg" "file31_03_aa.jpg" "file31_03_bb.jpg" "file31_03_cc.jpg" これらのファイル形式は (file)(XX)_(XX)_(XX).jpg これらの中からこの正規表現でヒットするファイルのみ指定した別ディレクトリにコピーしたいです。 file\d\d_(05|03)_(aa|cc)\.jpg Windowsのコマンドプロンプトで実現可能でしょうか。可能であればコマンド列を教えてください。 (cygwinでも良いです。) よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- プロパティを見ることができない！
こんにちは．とある研究室で日々苦戦しているサーバ管理初心者です． 実はサーバのDドライブをフォーマットして研究室の共有ドライブにしたのですが共有ドライブおよびドライブ内のフォルダ，ファイルの「プロパティ」を見ることができません．また，「共有」も見ることができません．右クリックの「ショートカットの作成」とか「削除」とかの操作は可能なのですが，「プロパティ」と「共有」だけクリックしてもなにも起こりません．またシステムを入れているCドライブもフォルダのプロパティが見られません（ファイルのプロパティは見られます）．私にはまったくわけがわかりません．なにが原因でどうしたら見られるようになるのでしょうか？どなたか親切な方教えてください．サーバOSはWindows 2000 Serverです．Norton AntiVirusの試用版とZoneAlarmをセキュリティソフトとして使用しています．それ以外余計なソフトは一切入れていません．
- ベストアンサー
- ネットワーク
- デスクトップにショートカットが作れない。
Windows NT に MS Office 2000 professional を入れて使用してます。 ところが、以前は簡単に出来ていたのですが、デスクトップにフォルダのショートカットが出来なくなってしまいました。 私の行なったやり方は「スタート」から「エクスプローラ」を開き、ショートカットを作成したいフォルダをコピーし、デスクトップ上で「ショートカットの貼り付け」で作成する方法です。 すると、フォルダのショートカットアイコンは作成されずに、ウインドウズのロゴの入ったショートカットファイル（ファイルが認識できない?!）のアイコンになってしまいます。 当然のごとく、クリックしてもフォルダは開かず何の反応もありません。 私なりに（書物を参考に）そのフォルダのプロパティを開き、「ショートカット」のタブから「アイコンの変更」を開きアイコンは変更できました。 しかし、「リンク先」に（Dドライブの直下に「personal」とい名のフォルダを置いてるので）「D:\personal」と入力し、「適用」を押して終了してもフォルダは開きません。 再度、プロパティを開くと何故かリンク先に入力したものが消えて空欄になってます。 どうやったらショートカットが作成できるのでしょうか？ リンク先の入力が間違えているのでしょうか？ どなたか教えて下さい。 また、どのフォルダでやっても同じようにショートカットは出来ません。 以前はコピーしてショートカットの貼り付けで簡単に出来ていたのですが、何で出来なくなってしまったのでしょうか？ 根本的に直す方法を知っている方がいらっしゃいましたら教えて下さい。 よろしくお願いします。
- 締切済み
- Windows NT・2000
お礼
ご回答ありがとうございました。 解決できました。