エクセルの学校：全文検索：Hyper Estraier：自作　ショートカット

Results of 1 - 1 of about 25 for 自作　ショートカット (0.005 sec.)

自作 (495), ショートカット (1079)

[[20121212215001]]: #score: 9569; @digest: cbbc5aa4d86f29a46895238eeb867171; @id: 61008; @mdate: 2012-12-13T09:22:35Z; @size: 2373; @type: text/plain; #keywords: changelink (23835), mylnks (22142), oldlnk (14996), 人マ (14426), applicationdata (14010), xlexcellinks (8640), linksources (8275), 晩修 (7748), link20121213 (7748), personal (4471), xlsb (3441), lnk (3175), xlstart (2948), 名¥ (2947), convert (2930), newname (2545), 作動 (2063), settings (1784), 今晩 (1616), 個人 (1518), documents (1344), 張子 (1342), fullname (1238), マナ (1190), 拡張 (1098), ー名 (1095), ブッ (831), activeworkbook (714), 膨大 (698), 作確 (686), マク (637), 御座 (621); 『個人マクロ』（たま）
お世話になります。エクセル2003から2010に変更したブックがあり、個人マクロが登録されていたのですがエクセル2003のブックには、ボタンを押すと、個人マクロが作動していたのですが、個人マクロの拡張子がXLSBになってファイルのパスが違うみたいで作動しません。そのボタンが、示してあるアドレスを見ると C:¥Documents and Settings¥ユーザー名¥ ApplicationData¥Microsoft¥Excel¥XLSTART¥PERSONAL.XLS'!マクロ名で拡張子がXLSとなっていました。個人マクロでThisWorkbook.Workbook.Path はC:¥Documents and Settings¥ユーザー名¥ ApplicationData¥Microsoft¥Excel¥XLSTART¥PERSONAL.XLSBと XLSBの拡張子が違っていて”B”を追加すれば作動することまでは分かったのですが、沢山のブックがあり一つ一つは膨大な時間が掛かってしまい何か良い方法があれば教えてください。 ---- ChangeLinkメソッドを調べてみてはどうでしょうか（マナ）以前、自作アドインで同じようなことをしました。（本当は、簡単な方法があるのかも知れませんが） ---- マナさん返答有難う御座います。マナさんちょっとよくわかっていない（たま）ですがマクロで該当のブック（多数ありを）でChangeLinkを使用して変更させればいいのですか? （たま） ---- イメージしていたのは、例えばこんな感じです（マナ）アクティブなブックに対して、下記マクロを実行します。マクロはPERSONAL.XLSBに置いてください。★の行は、実際に合わせて修正が必要です。私の場合は、マクロをショートカット登録し、必要なブックのみ、その都度、実行していました。指定フォルダ内の全ブックについて、順番に実行することも工夫次第では? ChangeLinkとかLinkSourcesについては、ヘルプ等で調べてください。コードの意味が理解できると思います。 Sub Convert_Link20121213() Dim myLnks, lnk Const oldLnk As String = "C:¥*******¥******¥PERSONAL.XLS" '★ myLnks = ActiveWorkbook.LinkSources(xlExcelLinks) If IsEmpty(myLnks) Then Exit Sub For Each lnk In myLnks If lnk = oldLnk Then ActiveWorkbook.ChangeLink _ Name:=oldLnk, NewName:=ThisWorkbook.FullName, _ Type:=xlExcelLinks End If Next End Sub 時間がないので、動作確認せずアップしています。問題あれば今晩修正します。 ---- マナさんコードまで教えていただき有難う御座います。一部の作動確認ができました・・ファイルの中を検索するように考えま-す。これで300のブックが再起動できそうです。ありがとう。今後も分からないことがあれば宜しくお願いします。（たま） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201212/20121212215001.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ