Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1954 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【70780】テキストファイルの文字列の置換 美貴 11/12/29(木) 23:28 質問[未読]
【70783】Re:テキストファイルの文字列の置換 ichinose 11/12/30(金) 11:30 発言[未読]
【70788】Re:テキストファイルの文字列の置換 美貴 11/12/30(金) 15:41 質問[未読]
【70792】Re:テキストファイルの文字列の置換 ichinose 11/12/30(金) 19:21 発言[未読]
【70793】Re:テキストファイルの文字列の置換 美貴 11/12/30(金) 20:11 お礼[未読]
【70795】Re:テキストファイルの文字列の置換 ichinose 11/12/30(金) 20:37 発言[未読]
【70796】Re:テキストファイルの文字列の置換 美貴 11/12/30(金) 20:56 お礼[未読]
【70797】Re:テキストファイルの文字列の置換 ichinose 11/12/30(金) 21:05 発言[未読]
【70798】Re:テキストファイルの文字列の置換 美貴 11/12/30(金) 22:33 発言[未読]
【70789】Re:テキストファイルの文字列の置換 UO3 11/12/30(金) 18:07 発言[未読]
【70790】Re:テキストファイルの文字列の置換 美貴 11/12/30(金) 18:59 お礼[未読]
【70794】Re:テキストファイルの文字列の置換 美貴 11/12/30(金) 20:28 お礼[未読]
【70799】Re:テキストファイルの文字列の置換 Yuki 11/12/31(土) 19:27 発言[未読]
【70800】Re:テキストファイルの文字列の置換 美貴 12/1/1(日) 8:35 お礼[未読]
【70801】Re:テキストファイルの文字列の置換 Yuki 12/1/1(日) 12:13 発言[未読]
【70805】Re:テキストファイルの文字列の置換 美貴 12/1/1(日) 18:37 発言[未読]
【70810】Re:テキストファイルの文字列の置換 きぬあさ 12/1/2(月) 11:45 回答[未読]
【70812】Re:テキストファイルの文字列の置換 美貴 12/1/2(月) 13:49 お礼[未読]
【70828】Re:テキストファイルの文字列の置換 美貴 12/1/4(水) 7:42 質問[未読]
【70830】Re:テキストファイルの文字列の置換 きぬあさ 12/1/4(水) 11:57 回答[未読]
【70831】Re:テキストファイルの文字列の置換 美貴 12/1/4(水) 12:54 お礼[未読]
【70840】Re:テキストファイルの文字列の置換 美貴 12/1/5(木) 6:26 質問[未読]
【70842】Re:テキストファイルの文字列の置換 きぬあさ 12/1/5(木) 16:25 回答[未読]
【70844】Re:テキストファイルの文字列の置換 美貴 12/1/5(木) 18:44 お礼[未読]
【70856】Re:テキストファイルの文字列の置換 美貴 12/1/7(土) 10:06 質問[未読]
【70806】Re:テキストファイルの文字列の置換 きぬあさ 12/1/2(月) 1:25 回答[未読]
【70807】Re:テキストファイルの文字列の置換 美貴 12/1/2(月) 2:08 質問[未読]
【70809】Re:テキストファイルの文字列の置換 kanabun 12/1/2(月) 11:12 発言[未読]
【70811】Re:テキストファイルの文字列の置換 美貴 12/1/2(月) 12:48 発言[未読]
【70780】テキストファイルの文字列の置換
質問  美貴  - 11/12/29(木) 23:28 -
引用なし
パスワード
   こんばんは♪
美貴です(^。^)
いつもお世話になっております。

Excel2010のクイックアクセス・ツールバーの中のボタンを
VBAで置き換えたいと思っています。
そこで、「Excel.officeUI」を開いて、文字列置換を
しようと色々試してみましたが、文字化けが発生してしまって
うまくいきません。

コードはこんな感じで、２種類ともにNGです。
うまくいく方法はないでしょうか？
よろしくお願い致します。


Sub テキストファイル_文字列の置換1()
　　Open "C:\Excel.officeUI" For Input As #1
　　Open "C:\Excel2.officeUI" For Output As #2
　　b = """AppointmentColor6"""
　　c = """AppointmentColor10"""
　　lb = Len(b)
　　lc = Len(c)
　　While Not EOF(1)
　　Line Input #1, a
　　ns = Replace(a, b, c)
　　Print #2, ns
　　Wend
　　Close #1
　　Close #2
End Sub

Sub テキストファイル_文字列の置換2()
　　Open "C:\Excel.officeUI" For Input As #1
　　　　b = """AppointmentColor6"""
　　　　c = """AppointmentColor10"""
　　With CreateObject("Scripting.FileSystemObject")
　　　　With .GetFile("C:\Excel2.officeUI").OpenAsTextStream
　　　　　　buf = .ReadAll
　　　　　　　　ns = Replace(buf, b, c)
　　　　　　　　　　Print #2, ns
　　　　　　.Close
　　　　End With
　　End With
End Sub
【70783】Re:テキストファイルの文字列の置換
発言  ichinose  - 11/12/30(金) 11:30 -
引用なし
パスワード
   ▼美貴 さん：
こんにちは。
excel2011は持っていないので確認できませんが・・・。

テキストファイルの出力の方もFSOを使って行ってみては？
いかがですか？
FSOのCreateTextFileメソッドを使えば、新規にTextStream オブジェクトが生成されますから、これで試してみてください。
【70788】Re:テキストファイルの文字列の置換
質問  美貴  - 11/12/30(金) 15:41 -
引用なし
パスワード
   ▼ichinose さん：
こんにちは♪

ありがとうございます。

下記コードに書き換えて実行してみたのですが、やっぱりNGで
出力ファイルが文字化けです。(^_^;)


Sub テキストファイル_文字列の置換c()

　　Dim FSO As Object
　　Dim buf As String, b As String, c As String, ns As String
　　
　　Set FSO = CreateObject("Scripting.FileSystemObject")

　　　　b = """AppointmentColor6"""
　　　　c = """AppointmentColor10"""
　　　　
　　With FSO.GetFile("C:\Excel.officeUI").OpenAsTextStream
　　　　buf = .ReadAll
　　　　ns = Replace(buf, b, c)
　　　　.Close
　　End With
　　
　　With FSO.CreateTextFile("C:\Excel2.officeUI")
　　　　.WriteLine ns
　　　　.Close
　　End With
　　
　　Set FSO = Nothing

End Sub
【70789】Re:テキストファイルの文字列の置換
発言  UO3  - 11/12/30(金) 18:07 -
引用なし
パスワード
   ▼美貴 さん：

こんばんは
2007も2010も、持ってるだけ、おいてあるだけといった状況で、あいかわらず使っているのは
ほとんど2003ですので、リボンのどこに何があるにか、いつもおおさわぎです。
ですから、この質問に答えられるレベルにはないのですが。

アップされたコード、このように変換すれば大丈夫だということが、
ＭＳあたりの仕様リリースにあるのでしょうか？

リボンのカスタマイズに関しては、きぬよ＆あさみ さんのサイトが｢権威？｣
その中の
www.ka-net.org/ribbon.html
ここに、クイックアクセス・ツールバー（長ったらしい名前ですねぇ）のカスタマイズ例も掲載されています。

ご参考まで。
【70790】Re:テキストファイルの文字列の置換
お礼  美貴  - 11/12/30(金) 18:59 -
引用なし
パスワード
   ▼UO3 さん：

こんばんは♪
ありがとうございます。

先ほどのコードは、tanakaさんやmutohさんのサイトの
情報を参考にさせて頂きました。
でも、なぜかそのものズバリの回答が見当たらないんです。
Excel2003に慣れてたひとはExcel2010の不便さに頭にきてると
思うんですが。。。
なんでこんなに苦労させられるんだろー
これまでのExcelファンが逃げて行ってしまいそうですよねー

今から教えて頂いたサイトに行ってみますね♪
でも、なぜかそのものズバリがないですねー（涙）
不思議だなぁ(^_^;)
【70792】Re:テキストファイルの文字列の置換
発言  ichinose  - 11/12/30(金) 19:21 -
引用なし
パスワード
   ▼美貴 さん：

>出力ファイルが文字化けです。(^_^;)
ん？
以下のようにすると、どうでしょうか？


>Sub テキストファイル_文字列の置換c()
>
>　　Dim FSO As Object
>　　Dim buf As String, b As String, c As String, ns As String
>　　
>　　Set FSO = CreateObject("Scripting.FileSystemObject")
>
>　　　　b = """AppointmentColor6"""
>　　　　c = """AppointmentColor10"""
>　　　　
 　　With FSO.GetFile("C:\Excel.officeUI").OpenAsTextStream(,true)
>　　　　buf = .ReadAll
>　　　　ns = Replace(buf, b, c)
>　　　　.Close
>　　End With
>　　
　　With FSO.CreateTextFile("C:\Excel2.officeUI",True,True)
　　　　　.Write ns
>　　　　.Close
>　　End With
>　　
>　　Set FSO = Nothing
>
>End Sub
【70793】Re:テキストファイルの文字列の置換
お礼  美貴  - 11/12/30(金) 20:11 -
引用なし
パスワード
   ▼ichinose さん：

ありがとうございます。

早速やってみましたが
NGでした(^_^;)
症状はひどくなりました（涙）

믯㲿獭㩯畣瑳䥕砠汭獮砺㴱栢瑴㩰⼯捳敨慭⹳業牣獯景⹴潣⽭景楦散㈯〰⼹㜰振獵
こんな感じです(>_<)

とりあえず、日本語がファイルにはいってくると
不具合を引き起こす元凶みたいですので
組み込みメニューで使う日本語を英数字に置き換え中です。
【70794】Re:テキストファイルの文字列の置換
お礼  美貴  - 11/12/30(金) 20:28 -
引用なし
パスワード
   美貴です♪

メニューから日本語を全て排除したら
OKになりました。
お手数おかけしました。
ありがとうございました(^。^)
【70795】Re:テキストファイルの文字列の置換
発言  ichinose  - 11/12/30(金) 20:37 -
引用なし
パスワード
   元ファイルの形式がわからないので、FSOでできることを
全部試してみて・・・、

これでは？

>Sub テキストファイル_文字列の置換c()
>
>　　Dim FSO As Object
>　　Dim buf As String, b As String, c As String, ns As String
>　　
>　　Set FSO = CreateObject("Scripting.FileSystemObject")
>
>　　　　b = """AppointmentColor6"""
>　　　　c = """AppointmentColor10"""
>　　　　
　　With FSO.GetFile("C:\Excel.officeUI").OpenAsTextStream(,-2)
>　　　　buf = .ReadAll
>　　　　ns = Replace(buf, b, c)
>　　　　.Close
>　　End With
>　　
　　With FSO.CreateTextFile("C:\Excel2.officeUI",True,-2)
　　　　　.Write ns
>　　　　.Close
>　　End With
>　　
>　　Set FSO = Nothing
>
>End Sub
【70796】Re:テキストファイルの文字列の置換
お礼  美貴  - 11/12/30(金) 20:56 -
引用なし
パスワード
   ▼ichinose さん：

ありがとうございます。

NGです。
やはり日本語が少しでも入ってるとNGです。
【70797】Re:テキストファイルの文字列の置換
発言  ichinose  - 11/12/30(金) 21:05 -
引用なし
パスワード
   ▼美貴 さん：
試しにExcelで読み込んでみて、正しく読み込めますか？
【70798】Re:テキストファイルの文字列の置換
発言  美貴  - 11/12/30(金) 22:33 -
引用なし
パスワード
   ▼ichinose さん：
>▼美貴 さん：
>試しにExcelで読み込んでみて、正しく読み込めますか？

おっしゃるように
Excelで読めたのですが
空っぽに見えてます（涙）

もう、わけがわかんないです(^_^;)

明日に持越しですが、時間ばっかりかかってしまって
もうイヤ(>_<)
テキストエディタで開いて、マニュアル編集して保存すれば
OKなのに。。。
【70799】Re:テキストファイルの文字列の置換
発言  Yuki  - 11/12/31(土) 19:27 -
引用なし
パスワード
   ▼美貴 さん：
>こんばんは♪

こんな風ではどうでしょうか？
Sub TESTb()
　　Dim io1　　 As Integer
　　Dim io2　　 As Integer
　　Dim strFNm1 As String
　　Dim strFNm2 As String
　　Dim buf()　 As Byte
　　Dim v　　　 As Variant
　　Dim b　　　 As String
　　Dim c　　　 As String
　　
　　strFNm1 = "C:\Excel.officeUI"
　　strFNm2 = "C:\Excel2.officeUI"
　　b = """AppointmentColor6"""
　　c = """AppointmentColor10"""

　　io1 = FreeFile
　　Open strFNm1 For Binary Lock Read As #io1
　　　　ReDim buf(LOF(io1))
　　　　Get #io1, , buf
　　Close #io1
　　v = StrConv(buf, vbUnicode)
　　v = Replace(v, b, c)
　　v = Left(v, Len(v) - 1)
　　io2 = FreeFile
　　Open strFNm2 For Output As #io2
　　　　Print #io2, v
　　Close #io2
End Sub
【70800】Re:テキストファイルの文字列の置換
お礼  美貴  - 12/1/1(日) 8:35 -
引用なし
パスワード
   ▼Yuki さん：

おはようございます♪

ありがとうございます。
でも、NGでした(^_^;)
何も表示されないですぅ
【70801】Re:テキストファイルの文字列の置換
発言  Yuki  - 12/1/1(日) 12:13 -
引用なし
パスワード
   ▼美貴 さん：
あけましてオメデトウございます。

>何も表示されないですぅ
一度テストで読んでそのまま書き込んでみたらどうなりますか？
C:\Excel.officeUIのファイルと
C:\Excel2.officeUIと同じになるでしょうか。

Sub TESTb()
　　Dim io1　　 As Integer
　　Dim io2　　 As Integer
　　Dim strFNm1 As String
　　Dim strFNm2 As String
　　Dim buf()　 As Byte
　　Dim v　　　 As Variant
　　Dim b　　　 As String
　　Dim c　　　 As String
　　
　　strFNm1 = "C:\Excel.officeUI"
　　strFNm2 = "C:\Excel2.officeUI"
　　b = """AppointmentColor6"""
　　c = """AppointmentColor10"""

　　io1 = FreeFile
　　Open strFNm1 For Binary Lock Read As #io1
　　　　ReDim buf(LOF(io1) - 3)
　　　　Get #io1, , buf
　　Close #io1
　　v = StrConv(buf, vbUnicode)
　　io2 = FreeFile
　　Open strFNm2 For Output As #io2
　　　　Print #io2, v
　　Close #io2
End Sub
【70805】Re:テキストファイルの文字列の置換
発言  美貴  - 12/1/1(日) 18:37 -
引用なし
パスワード
   ▼Yuki さん：

あけましておめでとうございますぅ♪
こちらこそ
どうぞよろしくお願い致します。

で、結果なのですが
NGでした(^_^;)
何もしないで書き込んでも結果は同じです。

引き続きよろしくお願い致しますぅ♪
【70806】Re:テキストファイルの文字列の置換
回答  きぬあさ  - 12/1/2(月) 1:25 -
引用なし
パスワード
   こんばんは。

officeUIファイルもXMLファイルですので、DOMDocumentあたりで普通に書き換えてみてはいかがでしょうか？

ここには初めて書き込むもので、不備があったらすみません。

Public Sub Sample()
　Const FilePath As String = "C:\Word.officeUI"
　With CreateObject("Msxml2.DOMDocument")
　　.async = False
　　If .Load(FilePath) Then
　　　.SelectNodes("mso:customUI/mso:ribbon/mso:qat/mso:sharedControls/mso:control[@idQ='mso:FilePrintQuick']").Item(0).setAttribute "visible", "true"
　　　.Save FilePath
　　End If
　End With
End Sub
【70807】Re:テキストファイルの文字列の置換
質問  美貴  - 12/1/2(月) 2:08 -
引用なし
パスワード
   ▼きぬあさ さん：

こんばんは♪

ありがとうございます。
質問なのですが、出力ファイルの指定方法と
ファイル中の文字列置換の方法を教えて頂けないでしょうか？
早速tryしてみます♪
【70809】Re:テキストファイルの文字列の置換
発言  kanabun  - 12/1/2(月) 11:12 -
引用なし
パスワード
   ▼美貴 さん：

>出力ファイルの指定方法

よくわからないんですけど、
そのXMLファイルは もともとUnicodeで記述されてるんじゃありませんか？
<?xml version="1.0" encoding="UTF-8" standalone="no" ?>
↑ここで encoding=は省略可能であり、省略した場合、
　"UTF-8"もしくは、"UTF-16"で記述されたとみなされます。

なので、VBA上で文字列置換時には ファイルのままのUnicode 文字列で
置換されたとして、これを
> Print #2,
や
> .Write
使って出力すると、その時点で Shift-JISに自動変換されてる ってことが
考えられますよね？
【70810】Re:テキストファイルの文字列の置換
回答  きぬあさ  - 12/1/2(月) 11:45 -
引用なし
パスワード
   こんにちは。

> 質問なのですが、出力ファイルの指定方法と
> ファイル中の文字列置換の方法を教えて頂けないでしょうか？

たとえばofficeUIファイル(D:\Excel.officeUI)が下記のようになっていて、

<mso:customUI xmlns:x1="h_t_tp://schemas.microsoft.com/office/2009/07/customui/macro" xmlns:mso="h_t_tp://schemas.microsoft.com/office/2009/07/customui">
　<mso:ribbon>
　　<mso:qat>
　　　<mso:sharedControls>
　　　　<mso:button idQ="x1:Book1_マクロ1_1" visible="true" label="私のマクロ" imageMso="AppointmentColor6" onAction="Book1!マクロ1" />
　　　</mso:sharedControls>
　　</mso:qat>
　</mso:ribbon>
</mso:customUI>

idQ属性の値が「x1:Book1_マクロ1_1」になっているbutton要素のimageMso属性の値を「AppointmentColor10」にして、「D:\Excel2.officeUI」ファイルとして保存したい場合は下記のようになります。

Public Sub Sample()
　With CreateObject("Msxml2.DOMDocument")
　　.async = False
　　If .Load("D:\Excel.officeUI") Then
　　　.SelectNodes("mso:customUI/mso:ribbon/mso:qat/mso:sharedControls/mso:button[@idQ='x1:Book1_マクロ1_1']").Item(0).setAttribute "imageMso", "AppointmentColor10"
　　　.Save "D:\Excel2.officeUI"
　　End If
　End With
End Sub

実際にはエラー処理等を入れる必要がありますが、大雑把には上記のようになります。

> そのXMLファイルは もともとUnicodeで記述されてるんじゃありませんか？

UTF-8ですね。
上で日本語が問題になっているのはそれが原因だと思われます。


見落としていました。

> リボンのカスタマイズに関しては、きぬよ＆あさみ さんのサイトが｢権威？｣

いやいや(^_^;、
さすがに権威って言うのは言い過ぎですね(笑)
【70811】Re:テキストファイルの文字列の置換
発言  美貴  - 12/1/2(月) 12:48 -
引用なし
パスワード
   ▼kanabun さん：

こんにちは♪

ありがとうございます。

そのあたりの事情がよくわかんないんです(>_<)
素人の女にもわかるようにお導きを〜(^_^;)
【70812】Re:テキストファイルの文字列の置換
お礼  美貴  - 12/1/2(月) 13:49 -
引用なし
パスワード
   ▼きぬあさ さん：

ありがとうございます。

できましたぁ♪
すっご〜いい(^。^)
のどにささった小骨がやっと取れた感じですぅ(^。^)

記述内容については、おいおい理解できるように
頑張りますぅ♪

ありがとうございました♪
【70828】Re:テキストファイルの文字列の置換
質問  美貴  - 12/1/4(水) 7:42 -
引用なし
パスワード
   ▼きぬあさ さん：

おはようございます♪

すみません。
追加で質問させて下さぁい。(>_<)

下記のidQ="x1:Book1_マクロ1_1"に含まれているフォルダパスを
変更するには、どうしたらいいでしょうか？
他の人に、私が作ったマクロを組み込んであるクイックアクセス・ツールバー
を受け渡したときに、このフォルダパスを書き換える必要があるんですが
マクロの数が多いと結構嫌がられたりします(^_^;)
新規にボタンを追加するのと余り変わらない負荷をかけてしまって恐縮
ですぅ(>_<)

どうぞよろしくお願い致します。

>こんにちは。
>
>> 質問なのですが、出力ファイルの指定方法と
>> ファイル中の文字列置換の方法を教えて頂けないでしょうか？
>
>たとえばofficeUIファイル(D:\Excel.officeUI)が下記のようになっていて、
>
><mso:customUI xmlns:x1="h_t_tp://schemas.microsoft.com/office/2009/07/customui/macro" xmlns:mso="h_t_tp://schemas.microsoft.com/office/2009/07/customui">
>　<mso:ribbon>
>　　<mso:qat>
>　　　<mso:sharedControls>
>　　　　<mso:button idQ="x1:Book1_マクロ1_1" visible="true" label="私のマクロ" imageMso="AppointmentColor6" onAction="Book1!マクロ1" />
>　　　</mso:sharedControls>
>　　</mso:qat>
>　</mso:ribbon>
></mso:customUI>
>
>idQ属性の値が「x1:Book1_マクロ1_1」になっているbutton要素のimageMso属性の値を「AppointmentColor10」にして、「D:\Excel2.officeUI」ファイルとして保存したい場合は下記のようになります。
>
>Public Sub Sample()
>　With CreateObject("Msxml2.DOMDocument")
>　　.async = False
>　　If .Load("D:\Excel.officeUI") Then
>　　　.SelectNodes("mso:customUI/mso:ribbon/mso:qat/mso:sharedControls/mso:button[@idQ='x1:Book1_マクロ1_1']").Item(0).setAttribute "imageMso", "AppointmentColor10"
>　　　.Save "D:\Excel2.officeUI"
>　　End If
>　End With
>End Sub
>
>実際にはエラー処理等を入れる必要がありますが、大雑把には上記のようになります。
>
>> そのXMLファイルは もともとUnicodeで記述されてるんじゃありませんか？
>
>UTF-8ですね。
>上で日本語が問題になっているのはそれが原因だと思われます。
>
>
>見落としていました。
>
>> リボンのカスタマイズに関しては、きぬよ＆あさみ さんのサイトが｢権威？｣
>
>いやいや(^_^;、
>さすがに権威って言うのは言い過ぎですね(笑)
【70830】Re:テキストファイルの文字列の置換
回答  きぬあさ  - 12/1/4(水) 11:57 -
引用なし
パスワード
   こんにちは。

方法は色々とありますが、たとえばidQ属性に「D:_TestFiles_マクロ.xlsm」(D:\TestFiles\マクロ.xlsm)が含まれているbutton要素だけを抜き出して「D:_TestFiles_マクロ2.xlsm」(D:\TestFiles\マクロ2.xlsm)に変更する場合は下記のようなコードで処理できます。
(このあたりは自分の目的に応じて適当にコードを変更してください。)

また、マクロファイルの場所を変更する場合はonAction属性の値を変更する必要がありますのでご注意ください。

Public Sub Sample()
　Dim n As Object
　Dim s As String
　
　With CreateObject("Msxml2.DOMDocument")
　　.async = False
　　If .Load("D:\Excel.officeUI") Then
　　　For Each n In .SelectNodes("mso:customUI/mso:ribbon/mso:qat/mso:sharedControls/mso:button")
　　　　If InStr(n.getAttribute("idQ"), "D:_TestFiles_マクロ.xlsm") Then
　　　　　s = n.getAttribute("idQ")
　　　　　s = Replace$(s, "D:_TestFiles_マクロ.xlsm", "D:_TestFiles_マクロ2.xlsm")
　　　　　n.setAttribute "idQ", s
　　　　　s = n.getAttribute("onAction")
　　　　　s = Replace$(s, "D:\TestFiles\マクロ.xlsm", "D:\TestFiles\マクロ2.xlsm")
　　　　　n.setAttribute "onAction", s
　　　　End If
　　　Next
　　　.Save "D:\Excel2.officeUI"
　　End If
　End With
End Sub
【70831】Re:テキストファイルの文字列の置換
お礼  美貴  - 12/1/4(水) 12:54 -
引用なし
パスワード
   ▼きぬあさ さん：

早速ありがとうございます。

色々tryしてみますね♪(^。^)
【70840】Re:テキストファイルの文字列の置換
質問  美貴  - 12/1/5(木) 6:26 -
引用なし
パスワード
   ▼きぬあさ さん：
おはようございますぅ♪

ご親切にしていただいて感謝の１０乗です(^。^)

私のやりたいことは、
「私がカスタマイズしたOffice2010のメニュー（リボンとクイックアクセス・
ツールバーにところどころマクロを組み込んだもの）をほかのユーザに配布します。そのときに、Excelがサポートしているエキスポートだと
個人用マクロの場所が変更になっても、それを反映してくれません。
これをユーザに負担をかけずに自動でやりたいです。」

Excelを立ち上げると、ユーザが使用している「Excel」、「XLSTART」
フォルダの場所を取得できますので、自動で切り替えたいです。
Excel.officeUIの場所も類推はできますが、こっちは
最悪マニュアル指定でもいいかなと思います。
一度設定すれば済むことですから。
でも、個人用マクロの場所は、エキスポートしたExcel.officeUIを
編集して、私のメニュー変更のたびに設定し直さないといけないので
ユーザに不便をかけてしまいます。(^_^;)

何とかスムーズにExcel.officeUIの編集を実現できないでしょうか？
きぬあささんのサイトを見て勉強しようとしてるんですが
難しくって、私の実力では前に進めないです（涙）
途中で眠たくなってしまいます(>_<)

どうかよろしくお願い致します。
【70842】Re:テキストファイルの文字列の置換
回答  きぬあさ  - 12/1/5(木) 16:25 -
引用なし
パスワード
   こんにちは。

美貴さんがやろうとしているofficeUIファイルの配布、またはユーザー環境のofficeUIファイルの編集(マクロ使用?)ではどうしても手間が掛かりますので、各ユーザー環境でカスタマイズしたリボンとクイックアクセスツールバーを使用できるようにしたいという場合には、リボン・XMLを編集してリボンとクイックアクセスツールバーをカスタマイズしたファイルをアドインとして作成し、各ユーザーに配布するのが最も手間が掛からないだろうと思います。
(これならマクロを修正した場合でも各ユーザーのアドインファイルを置き換えるだけで事が済みます。)

もしくは方向性を変えて、ツールバーをカスタマイズ(h_t_tp://officetanaka.net/excel/vba/tips/tips54.htm)したアドインファイルを配布して、ユーザーには「アドイン」タブからマクロを使って貰うのはいかがでしょうか？
XMLを編集してリボンをカスタマイズするよりは、こちらの方が敷居が低いだろうと思います。
【70844】Re:テキストファイルの文字列の置換
お礼  美貴  - 12/1/5(木) 18:44 -
引用なし
パスワード
   ▼きぬあさ さん：

こんばんは♪

ありがとうございます。
素人のくせにやってることが、いっちょまえに高度すぎ？(^_^;)
私の会社は、Excel素人ばっかりなので
私が頑張らないと全然レベルが上がらないんです(>_<)
もう年寄のオジン、オバンばっかりで（笑）
（と言う私もそろそろ、や・ば・い(>_<)）

色々やってみますねー
また教えて下さいませませぇ♪
【70856】Re:テキストファイルの文字列の置換
質問  美貴  - 12/1/7(土) 10:06 -
引用なし
パスワード
   ▼きぬあさ さん：

こんにちは♪
いつもお世話になっております。

アドインについて検討したいと思います。
そこで、単純な質問なのですが、
中身のマクロ（ユーザフォーム含む）は一切見えないように
パスワードをかけておいて、
アドイン中のワークシートは、このマクロで編集することは可能でしょうか？
ワークシートは、情報の一時保管先として色々使用したいと
考えていますので、完全にリードオンリーでは
まずいんです。このワークシートはユーザが直接さわることもあります。
マクロとの別ファイル化は、できれば避けたいところなんです。

どうぞよろしくお願い致します(^。^)
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1954 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free