Excel VBA 質問スレ Part56

**デフォルトの名無しさん** · 2018/08/23(木) 07:25:24.98

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

※前スレ
Excel VBA 質問スレ Part55
http://mevius.5ch.net/test/read.cgi/tech/1532236398/l50

**デフォルトの名無しさん** · 2018/08/27(月) 01:20:34.40

Installationぐらい読めよ

**デフォルトの名無しさん** · 2018/08/27(月) 01:20:51.76

Export-Excel.ps1のコードなげえなあ
https://github.com/dfinke/ImportExcel/blob/master/Export-Excel.ps1

**デフォルトの名無しさん** · 2018/08/27(月) 01:26:56.53

>>357
Install-Moduleはオンラインギャラリーからインストールするもので

ローカルのモジュールをインストールするのは↓これでいけるかも

about_Modules
https://technet.microsoft.com/ja-jp/library/hh847804.aspx

モジュールのフォルダを自分で作って
そこにモジュールを放り込んで
Import-Moduleやるみたいよ

**デフォルトの名無しさん** · 2018/08/27(月) 01:27:16.96

c;\aaa\bbb\ccc.xls
c;\aaa\AAAAAAA\cccaaaa.txt
みたいに
二つ目のフォルダの階層だけを取得したい場合
どうすればいいのでしょうか？
上記ならbbbとAAAAAAAです

StrReverse関数はあくまでも右から見て最初の\以降しか取れません。

**デフォルトの名無しさん** · 2018/08/27(月) 01:30:06.85

>>361
それでわかるわけないだろ、品川に行くにはと聞いてる人に関東だと答えてるようなもんでしょうが

**デフォルトの名無しさん** · 2018/08/27(月) 01:30:57.18

久しぶりにVBAのまともな質問が

**デフォルトの名無しさん** · 2018/08/27(月) 01:37:50.69

split して配列にぶち込んでArr[2]を参照

**デフォルトの名無しさん** · 2018/08/27(月) 01:38:48.56

とりあえず、ps1は絶対パス指定じゃないと動かないらしいことがわかったので
フルパス指定したら先のエラーは突破できたけど、どこのフォルダに保存されたcsvも
＞ファイル 'C:\test\1.csv' が見つかりませんでした。
って出て読み込んでさえくれない。

>>363 の方法でなんかすれば動くのかな・・・
とりあえず今日は諦めるわ

**デフォルトの名無しさん** · 2018/08/27(月) 01:40:41.81

明日は良いことあるよ

**デフォルトの名無しさん** · 2018/08/27(月) 01:42:28.19

VBAってファイルを開いてコピーしてペーストして閉じるぐらいのもんじゃないの？
何をこんな難しい話をしてるんだ？？

**デフォルトの名無しさん** · 2018/08/27(月) 01:50:26.83

>>364
２つ目のフォルダって、最下層から二つ目って意味じゃないかな？

Sub hoge()
Const sample1 = "c;\aaa\bbb\ccc.xls"
Const sample2 = "c;\aaa\AAAAAAA\cccaaaa.txt"

Dim s() As String
s = Split(sample1, "\")
Debug.Print s(UBound(s, 1) - 1)

s = Split(sample2, "\")
Debug.Print s(UBound(s, 1) - 1)
End Sub

**デフォルトの名無しさん** · 2018/08/27(月) 02:12:40.91

>>357
PS で、カレントフォルダ以下を再帰的に、すべての .txt を取得する。
まずcd で、作業フォルダへ移動してから、実行して

$files = ( ls . -Recurse -Filter *.txt )

$files | % { echo $_ }
$files | % { echo $_.fullname }

上は、パス無しのファイル名のみで、下は、フルパス付きのファイル名になる。
ファイル名だけよりも、フルパスにした方が無難

% -> ForEach-Object の、alias だから、以下みたいにも書ける

foreach ( $file in $files ) { echo $file.fullname }

**デフォルトの名無しさん** · 2018/08/27(月) 06:05:46.61

>>372
スレチ

**デフォルトの名無しさん** · 2018/08/27(月) 07:17:40.62

一晩(実質2日だが)待ったがドーナツ先生はまだ>>79を解けないのか？

**デフォルトの名無しさん** · 2018/08/27(月) 07:26:14.29

>>374
もはや解いたも同然と言っても過言ではない

**デフォルトの名無しさん** · 2018/08/27(月) 07:27:36.94

>>374
あの、ところでテーブルレイアウトってどういう意味でしょうか？

**デフォルトの名無しさん** · 2018/08/27(月) 07:28:16.57

テーブルレイアウトがこの問題の一番重要なところですよね

**デフォルトの名無しさん** · 2018/08/27(月) 07:31:29.58

元々が「イミディエイトウィンドウで」なので
Excelブックのシートに展開することを指しているんだろうとエスパー

**デフォルトの名無しさん** · 2018/08/27(月) 07:36:38.49

>>378
そういうことね、あざっす！

**デフォルトの名無しさん** · 2018/08/27(月) 07:37:03.43

謎はすべて解けた

**デフォルトの名無しさん** · 2018/08/27(月) 08:14:42.64

そもそも、MS謹製じゃない誰かの作ったライブラリ使って1行で書いて自慢するというんじゃね・・・
それって>>263や>>275の書いたコードを呼び出す1行のコードでも良いってこと?

**デフォルトの名無しさん** · 2018/08/27(月) 08:32:26.99

それはそうやな

**デフォルトの名無しさん** · 2018/08/27(月) 08:46:14.15

MS謹製のドーナツはあるんですか？

**デフォルトの名無しさん** · 2018/08/27(月) 08:53:07.17

>>383
無理矢理こじつけて面白いとでも思ってる?
先のコードを見れば、MSのdllしか使ってないのはすぐ分かると思うのだが。
つまり、無理矢理なのは明らか。

それともそんなことも分からない程スキルが無いのかな?

**デフォルトの名無しさん** · 2018/08/27(月) 08:55:19.67

ドーナツは見事だわ
なかなか出来るもんじゃない

**デフォルトの名無しさん** · 2018/08/27(月) 08:56:02.93

>>384
お前が>>263のコードすら読めてないってのはわかった

**デフォルトの名無しさん** · 2018/08/27(月) 09:05:04.70

>>386
???
先のコードって>>263のコードのことだとでも思ってる?
何で>>263のコードがここで出てくるのか分からん。

**デフォルトの名無しさん** · 2018/08/27(月) 09:47:37.36

標準でいろんな機能が備わってるか、という基準でならVBAのボロ負け
ってことは皆さん承知でいいんだよね？

**デフォルトの名無しさん** · 2018/08/27(月) 09:50:03.33

そらそやろ
飛行機は空を飛ぶってことに合意とってるようなもんや

**デフォルトの名無しさん** · 2018/08/27(月) 09:56:12.27

喫煙所でタバコは体に悪いよねと合意取るようなもんや
酒、タバコ、VBA

**デフォルトの名無しさん** · 2018/08/27(月) 09:56:24.26

>>387
レベルが低いとそんなこともわからないのかw

**デフォルトの名無しさん** · 2018/08/27(月) 09:57:32.34

>>388
それ、 VBAが勝てる言語ってあるのか？

**デフォルトの名無しさん** · 2018/08/27(月) 10:16:22.11

VBAが一番かわいいだろうが

**デフォルトの名無しさん** · 2018/08/27(月) 10:17:51.89

ケンタッキーフライドチキンで鶏肉が不味いと言ってるようなもんだぞ

**デフォルトの名無しさん** · 2018/08/27(月) 10:18:40.41

VBAのスレだぞここは

**デフォルトの名無しさん** · 2018/08/27(月) 10:21:04.99

愛でよ愛せよ慈しめよ！

**デフォルトの名無しさん** · 2018/08/27(月) 11:33:07.93

>>391
何をどう勘違いしてるんだかw

**デフォルトの名無しさん** · 2018/08/27(月) 11:40:35.85

>>395
VBAは他所でスレ立ててやれ

**デフォルトの名無しさん** · 2018/08/27(月) 11:56:56.87

>>398
あ、はい

**デフォルトの名無しさん** · 2018/08/27(月) 12:13:16.68

>>309
＞俺が思うに.netが使えれば、もっと完成度が高く高機能なものを
＞簡単に作ることが出来るはずだ。
＞なんでこういうのを比較に出さないのかということだ。

ここを読むと技術力の低さが露呈していることがハッキリする
ドーナツアプリを見たがこの程度ではこれを.NETでやっても大きく差はつかない
せいぜい、運が良ければAPIじゃなくてマネージドな部品が用意されてるかもね、程度

>>79はみごとだ
標準のコレクションやライブラリの貧弱さ
ラムダ式の未サポートなどモダンな言語機能の欠如など
VBAの弱点をしっかり捉えた題材と言える
実際に勇気あるVBAerがコードを晒したがPSで書いた時とは全く異なる長ったらしい読みにくいコードだった
題材が的確だから結果にも大きな差がついた
オマケにVBAとは違って強力なライブラリや言語機能を備えたRubyがPSと同じく短くエレガントなコードになったことがこの事実をさらに後押ししている

**デフォルトの名無しさん** · 2018/08/27(月) 12:22:32.82

>>400
最後にテーブルにするというExcelに寄り添いつつも実用性のある操作を加えることで
決してVBAだけに不利な条件にもしないという隙の無さもポイント高い

(ところでPSのやつ最後テーブルになってるようには見えないんじゃが...)

**デフォルトの名無しさん** · 2018/08/27(月) 12:22:46.12

ルビーは実行環境インスコせなあかんし
池沼シェルはモジュールをインターネッツから
インスコせなあかん、それがネックやな

**デフォルトの名無しさん** · 2018/08/27(月) 12:23:29.37

ドーナツはどこからインスコできますか？

**デフォルトの名無しさん** · 2018/08/27(月) 12:24:47.83

>>401
そこに気づくとは
パワシェルは要件を満たしてないオナヌーコードに成り下がってる
簡単さにこだわる余り目的を見失ってる

**デフォルトの名無しさん** · 2018/08/27(月) 12:25:12.04

>>403
VBAからや

**デフォルトの名無しさん** · 2018/08/27(月) 12:29:16.75

要件を満たして正確に動作すること
これが第一、その上で簡単に書けたら良いよねが来る
簡単に書けました、ただし要件は満たしませんでは駄目なのさ

**デフォルトの名無しさん** · 2018/08/27(月) 13:30:20.91

>>401
と思ったけど-Nowオプション付けるとテーブル(というかフィルター？)になるのか
早とちりだった

-TableNameでテーブルになるのかな？

**デフォルトの名無しさん** · 2018/08/27(月) 13:34:04.87

わしもそう思ってた

**デフォルトの名無しさん** · 2018/08/27(月) 18:38:58.42

>>400
はあ、どうしてケチをつける割に人の話を聞かない奴ばかりなんだ?
あれをそのままで.netの方が良いなんて言って無いんだよ。

**デフォルトの名無しさん** · 2018/08/27(月) 18:42:32.83

特大ブーメラン

**デフォルトの名無しさん** · 2018/08/27(月) 18:54:44.25

分かりやすいのは他言語のコードを見ても全く、使おうとは思わない点だ。
VBAで何の問題も無いとしか思えない。
所詮、そんなコードだということ。

**デフォルトの名無しさん** · 2018/08/27(月) 19:01:40.79

その点ドーナツは凄いよな
俺も今やってる仕事でVBAでドーナツ使いたいわ
そんな魅力がドーナツのコードにはある

**デフォルトの名無しさん** · 2018/08/27(月) 19:18:00.13

>>412
話が読めないバカが混じってるな。
日本語が弱いのかな?

**デフォルトの名無しさん** · 2018/08/27(月) 19:25:45.86

>>413
日本語読めない子扱いされてるのがそんなに悔しいの？？

わざわざ日本語弱いとか煽ってくるとかwww
人間自分が言われて嫌なことを悪口に使うって聞いたことない？？

**デフォルトの名無しさん** · 2018/08/27(月) 20:08:40.51

>>413
ねえいつもうるさいくせに何で黙っちゃったの

**デフォルトの名無しさん** · 2018/08/27(月) 20:11:11.67

>>414
根拠も何も無い、論理的に間違っていてもまともに反論も出来ない、そういう奴だから日本語が弱いと言われても仕方がないだろう。

お前は何ーつ反論していない。
反論出来ないということだろう。

**デフォルトの名無しさん** · 2018/08/27(月) 20:12:23.31

>>415
今、見たからだが。
お前みたいに、このスレに齧り付いてるわけじゃ無い。

**デフォルトの名無しさん** · 2018/08/27(月) 20:29:58.31

>>416
おっそうだな
それ鏡に向かって言ってごらん？
それだけでかなり日本語能力が改善されると思うよ？

**デフォルトの名無しさん** · 2018/08/27(月) 21:45:25.01

>>418
一切反論が出来ないようだw
論理的なものが何も無い。

**デフォルトの名無しさん** · 2018/08/27(月) 21:49:35.20

このスレはいつからバカの楽園になったんや

**デフォルトの名無しさん** · 2018/08/27(月) 22:29:12.75

バカが１人だけだとほっとかれて終わるけど
2人で言い合うから終わらない

**デフォルトの名無しさん** · 2018/08/27(月) 22:39:23.01

例えば無数にあるエクセルファイルからそれぞれ読み取ってデータを集計する際、どう処理するのがベター？
速度気にするならデータベース？

**デフォルトの名無しさん** · 2018/08/27(月) 22:46:53.92

>>422
無数にあるエクセルファイルって、データの形式は統一されてるの？

**デフォルトの名無しさん** · 2018/08/27(月) 23:10:27.18

速度は気にするなと何度言えば

**デフォルトの名無しさん** · 2018/08/28(火) 06:28:16.68

>>423
形式は統一されてるとして同じ作業を繰り返えさせるのはどうするのがベターなのかなって。
>>424
やっぱ普通に開いて閉じるの繰り返しか。

**デフォルトの名無しさん** · 2018/08/28(火) 07:08:49.90

>>425
形式が統一されてるならSQL
{Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}

**デフォルトの名無しさん** · 2018/08/28(火) 08:14:03.75

そもそも、その内容だけを見た時にVBAでやる必要有るのか?とも思う。
好きなの使え。
それに、その程度のことでどれがベターとか考えるか?
コード見て、こりゃダメだと思うようなの書いて無い限りどんなのでも良いだろ。

スピード優先な処理なのに1つずつセルに入れてるようなのはダメだが、処理に時間がかかってダメだという状況じゃなかったら別にどうでも良いし。

**デフォルトの名無しさん** · 2018/08/28(火) 08:52:14.14

ドーナツはVBAじゃないとダメだろ

**デフォルトの名無しさん** · 2018/08/28(火) 08:55:27.62

Ruby なら、こういう感じで、フォルダ以下を再帰的に処理できる

Dir.glob('C:/Users/Owner/Documents/Ruby/test/**/*.txt') do |file|
next if File.directory? file # ファイルだけを処理する

# 処理
end

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

>>429
センスがない

**デフォルトの名無しさん** · 2018/08/28(火) 09:02:08.44

VBAじゃないならスレチじゃん

**デフォルトの名無しさん** · 2018/08/28(火) 09:08:59.41

>>428
何でVBAじゃないとダメなの?
ちゃんと答えられる?

**デフォルトの名無しさん** · 2018/08/28(火) 09:13:51.81

>>430
どこがセンス無いんだ?
全然説明が無い。

**デフォルトの名無しさん** · 2018/08/28(火) 09:17:55.83

Excel は環境構築がいらない。
Excelが実行環境だから

だから、Excelエンジニア(ノンプログラマー)は、Excelを使う

ところが、そこへ本格的なプログラミングを頼む者が現れるが、
プログラミング技術がないから、Excelで作ろうとする

案件と使う技術の不一致！

**デフォルトの名無しさん** · 2018/08/28(火) 11:09:00.30

仮想マシンでwindowsからセットアップしなきゃならん
インストールしてからもマクロ許可の設定しなきゃだし
手間も金もかかる

**デフォルトの名無しさん** · 2018/08/28(火) 11:46:00.71

>>435
？

**デフォルトの名無しさん** · 2018/08/28(火) 12:01:55.63

パソコンとはWindowsとMicrosoft Officeが動くもののことである
WindowsとMicrosoft Officeが動かないマシンなどこの世には存在しない
してはならない

**デフォルトの名無しさん** · 2018/08/28(火) 12:03:52.85

クリエイティブなエンジニアはみーんなマックとハイスペLinux

**デフォルトの名無しさん** · 2018/08/28(火) 12:17:45.25

エンジニアはどっかよそへ行っててくれ

**デフォルトの名無しさん** · 2018/08/28(火) 12:21:23.11

>>437
根本的に勘違いしてる。
別にOfficeが動かないマシンが有っても構わない。

けど、ここはExcelVBAのスレだからExcelが動く環境の人が質問する所だ。
Officeが動かない人がここで何をするんだ?

**デフォルトの名無しさん** · 2018/08/28(火) 12:25:28.24

Officeの入ってない管理者用PCでリモートPCのOfficeをいじるときにCOM経由でVBAのコードを動かすこととかあるよね

**デフォルトの名無しさん** · 2018/08/28(火) 12:30:46.90

>>440
Officeが動かないマシンなどありません
異端者はこのスレから立ち去りなさい

**デフォルトの名無しさん** · 2018/08/28(火) 12:46:54.11

>>441
あるね

**デフォルトの名無しさん** · 2018/08/28(火) 12:51:08.91

>>441
う～ん、それこそVBAじゃ無くても良いような気がする。
既に出来てるコードを動かすという点で新たに組む必要が無いという理由が、あるいは他にも事情があるのかもしれないけど。

でも、そもそもExcel入って無くてインスタンス作れるか?

**デフォルトの名無しさん** · 2018/08/28(火) 18:22:17.74

>>441
無いだろ
リモート側のExcelどうやって起動するんだよ…

**デフォルトの名無しさん** · 2018/08/28(火) 20:34:26.56

RubyバカはRubyのスレに逝けよ。Rubyのスレでは俺はRubyが使えるんだエラいんだって自慢できないからここに
いすわってんのか？

**デフォルトの名無しさん** · 2018/08/28(火) 21:17:25.35

>>445
インスタンスはリモート側で作らせればいい
管理者側はリモート側のプロセスをモニターするだけ

**デフォルトの名無しさん** · 2018/08/28(火) 21:51:02.38

何それリモデでよくね？

**デフォルトの名無しさん** · 2018/08/29(水) 00:00:56.70

Office は高いから、入れていない

Ruby で処理して、VSCode のExcel Viewer で見たりする

**デフォルトの名無しさん** · 2018/08/29(水) 00:52:26.56

csv開いて取り込む方法だけでも色々あるのね

openfileで開いて1行ずつ読み込んで、カンマ区切りでセルごとに格納するって方法もあれば、csvファイルをエクセルとして開いて配列に格納する方法もあった

**デフォルトの名無しさん** · 2018/08/29(水) 02:32:40.38

高いからエクセル買えない奴多いんだな
中国人や韓国人ですかね？

**デフォルトの名無しさん** · 2018/08/29(水) 02:50:31.20

こんなスレまだあるんだな
しかも結構人多いのに驚いたw
VBAっていうかExcelって需要あるんだね

でも仕事でやれって言われたらストレス溜まりそうだな
基本的にGUIが貧弱なVB6だよね

10年ぐらい前に必要に迫られてちょっとだけ触ったけど
C#に慣れた身には死ぬほど不便に感じたわ

**デフォルトの名無しさん** · 2018/08/29(水) 05:52:17.26

>>452
じゃあC#スレいけば？

**デフォルトの名無しさん** · 2018/08/29(水) 07:37:37.34

買えないならLibreOfficeがいいね
Excelとあまり遜色ない
BASICやpythonもサポートされてる
金出してでもネームバリューが欲しいならエクセル

**デフォルトの名無しさん** · 2018/08/29(水) 11:41:08.15

>>453
意味が分からんw
頭悪そうだなおたく

**デフォルトの名無しさん** · 2018/08/29(水) 12:32:06.57

>>455
このくらいの意味もわからんとはかわいそうなやつだな

**デフォルトの名無しさん** · 2018/08/29(水) 12:45:41.36

また始まったよ
お前らなもっとやれ

**デフォルトの名無しさん** · 2018/08/29(水) 12:57:17.66

何も始まらない
ID:w2kFCGmb が被害妄想が激しいお馬鹿さんなだけ

**デフォルトの名無しさん** · 2018/08/29(水) 18:47:58.71

何だこりゃ?
始まってるじゃね―か。

**デフォルトの名無しさん** · 2018/08/29(水) 20:18:54.82

C# スレでフルボッコでもされた憂さ晴らしに来たらこっちでもハブられてるって話だろ w