Excel VBA 質問スレ Part58

**デフォルトの名無しさん** · 2018/11/19(月) 06:47:24.99

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part57
https://mevius.5ch.net/test/read.cgi/tech/1536583359/

**デフォルトの名無しさん** · 2018/11/19(月) 09:52:02.94

>>1乙

**デフォルトの名無しさん** · 2018/11/20(火) 22:35:35.36

Dim Otimpo As Variant
Set Otimpo = New Penis
Otimpo.Insert Woman.Vagina

**デフォルトの名無しさん** · 2018/11/20(火) 22:46:03.40

俺だったらInsertToメソッドにする

**デフォルトの名無しさん** · 2018/11/22(木) 09:37:41.30

>>1
=LEFT("おつかれあかたあまや",4)

**デフォルトの名無しさん** · 2018/11/22(木) 09:49:09.43

昭和の臭いプンプン

**デフォルトの名無しさん** · 2018/11/22(木) 11:44:50.42

昭和なら $ 付けるだろ

**デフォルトの名無しさん** · 2018/11/23(金) 09:01:48.81

ややExcelと離れるのですが、他に適切な場所が見当たらないのでこちらで質問。

WordやPowerpointに、埋め込み、またはリンクで表示されているExcelの表やグラフについて、
1:ファイル名(フルパス、ないし相対パス)
2:表示されているシート名(またはシート番号)
3:表示されている表の範囲(A1からB20まで、みたいな)
を、WordやPowerpointで動かすVBAから列挙する、みたいなのを作りたいと考えてます。

(1)についてはある程度(たまに取れないのがある)なんとかなるのですが、
(2)と(3)の手段が分からないでいます。
この辺を得る手段について、ご存じの方いましたら教えてください。

**デフォルトの名無しさん** · 2018/11/23(金) 10:13:26.49

表示されているシート名って要は現在アクティブなシートってことでしょ？
ActiveSheet.Nameで取れるんじゃ？

**デフォルトの名無しさん** · 2018/11/23(金) 11:15:52.26

>>8
やったことがないから保証できないが、
OLEObject.ObjectプロパティからOLEオブジェクトのコントロールを取得できるはず
ここからExcelのオブジェクトモデル経由でシート名等は取れるかも

8 · 2018/11/23(金) 11:27:11.08

>>9,10

　そういえば、シート名はそれで取れますね。うっかりしてました。
ただ、Powerpointで表示されている、シート上の範囲( >>8 の(3) )がマジわからん。
ActiveSheetまでは到達出来るので、シート全体のデータは取れるのだけども、
表示範囲となるとどこを見れば良いのやら……

**デフォルトの名無しさん** · 2018/11/23(金) 16:52:45.93

表示範囲っての意味がよく判らない。使用されている範囲ならUsedRangeプロパティだけどそうじゃない？

**デフォルトの名無しさん** · 2018/11/23(金) 18:46:47.55

QueryTables.addを利用して取り込んだテキストデータを
TextFileFixedColumnWidths = array(5,4,2)
とVBソースに記述して5、4、2バイト目で区切ってエクセルに貼り付けしているのですが、
このarrayのカッコ内の値5,4,2の部分を1つのセル内に定義しておき、そこから取得して処理する方法を教えてください。(セル値を変えるだけで区切りバイトを変えられるようにしたいです)
セル内の定義は下記のような感じの形式で実現できたらいいなと思っています。
5,4,2
または
"5","4","2"
など
よろしくお願いします。

**デフォルトの名無しさん** · 2018/11/23(金) 18:47:07.61

>>12
UsedRangeは、まさに「Excel上で利用されている範囲」になるので、ちょっと違う。

探しているのは、(WordとかPowerpointとか) 「被貼付側から見えている範囲」。
コピペを行うときにExcel上で範囲指定してる、まさにその範囲の情報が欲しいのです。
『広い範囲が使われているシート(埋め込みオブジェクト)の一部分だけが表示されている時、
　その表示部分を特定する』がやりたいの。

**デフォルトの名無しさん** · 2018/11/23(金) 20:29:14.68

>>13
3つパラメータがあるならそもそも3つのセルで管理すればいいんじゃないかと思うが、区切る回数も動的にしたいのかな？

パラメーター記述用のセルに5,4,2と入力しておいて、コード内でSplit関数を使いそのセルの値をカンマ区切りで配列化するのが普通かな

そうやって得たString配列の要素全てをCIntで型変換してInteger配列に入れ直せば、TextFileFixedColumnWidthsプロパティに代入できる

**デフォルトの名無しさん** · 2018/11/23(金) 20:45:52.52

>>15
区切る回数も動的にしたいんです。
さっそく試してみます。ありがとうございます。

**デフォルトの名無しさん** · 2018/11/24(土) 07:26:12.22

>>15
無事にやりたいことが実現できました。ありがとうございました。勉強になりました。

**デフォルトの名無しさん** · 2018/11/26(月) 18:21:38.61

ユーザーフォームのボタンでExcel以外のファイルを開くのにShell.Execute使ったんだけど、ボタンを押しても何も反応しない

CreateObject("Shell.Application").ShellExecute "c:\test\test.pdf"

**デフォルトの名無しさん** · 2018/11/26(月) 19:08:14.69

>>18
試してみたけど、そのコードで問題なく動くなあ

**デフォルトの名無しさん** · 2018/11/26(月) 19:30:02.47

>>18
デザインモードがオンになってるとかじゃね

**デフォルトの名無しさん** · 2018/11/26(月) 20:06:27.80

検証ありがとう！
ちな標準モジュールに書くと普通に動く。
どうもユーザーフォームに書くとダメみたい

**デフォルトの名無しさん** · 2018/11/26(月) 20:09:03.00

>>21
違った
ユーザーフォームじゃなくてユーザーフォーム内のボタンね

**デフォルトの名無しさん** · 2018/11/26(月) 22:08:01.92

ユーザーフォーム作ってボタン配置してボタンのOnClickにコード書いたけど問題ない

**デフォルトの名無しさん** · 2018/11/26(月) 22:25:28.75

みんなマジか～
環境は2010、2007ともにダメだった。
明日2016で試してみる。
ちなみにパスがフォルダ指定までなら動く。
もう意味わからん

**デフォルトの名無しさん** · 2018/11/26(月) 22:57:14.49

>>24
もしかしてpdfをダブルクリックした時に「このファイルを開くアプリ」の選択メニューが出てない？

**デフォルトの名無しさん** · 2018/11/27(火) 08:58:52.14

>>25
すまぬすまぬ。実は開かないのは.xlsxや.xls。
さっきやったら.txtや.bmpに書き換えるとちゃんと動いた。関連付けがおかしいかと思ったけどファイルダブルクリックでexcelファイルは開く。

**デフォルトの名無しさん** · 2018/11/27(火) 09:23:34.69

さすがにExcelはOpen関数使えよ。。。

**デフォルトの名無しさん** · 2018/11/27(火) 11:44:24.61

>>27
やっぱりそうですよね、、
ありがとうこざいました！

**デフォルトの名無しさん** · 2018/11/27(火) 21:03:19.26

>>26
VISTA３２ビットのEXCEL2007で再現した
ちなみにブレークポイントはってステップインさせたらちゃんと動いた

**デフォルトの名無しさん** · 2018/11/28(水) 21:03:32.22

切り取り・コピーしようとしたら「クリップボードを開くことが」と表示されました前までは正常に出来てたのに急にあんなになるなんて
どうしたらなおるんですか

原因不明の謎の症状

30 · 2018/11/28(水) 21:11:36.27

>>30のところ、再起動したら直りました
自己解決

**デフォルトの名無しさん** · 2018/11/28(水) 21:55:41.99

WorksheetFunctionを使うと遅くなると聞きました。セルで計算して取得したほうがいいですか？