unokwaveのプロフィール

@unokwave unokwave
ありがとう数2,221
質問数0
回答数3,306
ベストアンサー数
966
ベストアンサー率
58%
お礼率
0%

  • 登録日2011/10/28
  • 性別男性
  • 職業会社員
  • 都道府県東京都
  • 中小企業の共有、NAS?サーバー?PC?

    パソコン3~4台稼働で現在そのうちの一台を母体にファイル共有、業務管理用のプログラム.exeファイルを使用しています。 使用しているパソコンを母体にしていると何かと問題が多いので、共有環境を変えたいのですが、何がベストなのか教えていただきたいです。 ・業務管理用のexeファイルの実行 ・その他エクセルファイルなどの共有 ができればOKです。NAS上にexeファイルを置いて稼働させている人もいるようですが、エラーがあったり、時間がかかったりなどの可能性があるようですが全くわかりません。 あれこれ考えていたら、面倒だから母体用のパソコンをもう一台置いた方が早いのではないかなど、いろいろまとまりません。 ご教授願います。

    • noname#262927
    • 回答数4
  • vbsで複数pptxから文字列抽出したい

    vbsで複数pptx内の文字列抽出してxls出力する処理で 1つめのpptxのopen~文字列抽出~closeはうまくいくのですが 2つめのpptxをうまくobject生成できません。 デバッグ用コメントで確認すると2つめpptxを瞬時にopen~close したあとにForNextの文字列抽出が動いているようで For文で"オブジェクトがありません"となってしまいます。 どなたか解決方法をご教授願えませんでしょうか。 Sub GrepPpt(objPptFile) Dim sld,shp,rng,find_rng,tbl,find_cell Set objPpt = CreateObject("PowerPoint.Application") objPpt.Visible = True Set filex = objPpt.Presentations.Open(objPptFile) For Each sld In objPpt.ActivePresentation.Slides ←ここで For Each shp In sld.Shapes If shp.HasTextFrame Then For columnx = 0 To keywordsx.Count - 1 Set rng = shp.TextFrame.TextRange Set find_rng = rng.Find(keywordsx(columnx)) If Not find_rng Is Nothing Then arraylstx.add rng & vbTAb & shp.Name & vbTab &~(割愛) Exit For End If Next Else ~(Table検索割愛) End If Next Next filex.Close objPpt.Quit Set objPpt = Nothing End Sub

  • ES File Explorer/Manager?

    ES File Explorer/Manager PROはストアから消滅したのでしょうか? ネット上にはあるようですけど?それをダウンロードするのは危険なのでしょうか?

    • haro110
    • 回答数2
  • 【C言語に詳しい人教えて下さい】

    【C言語に詳しい人教えて下さい】 ふくさんのグッドフクサニティ賞 @fukusanity 修士の頃、授業の課題でC言語書いてる時にどうしても謎のエラーが出て困っていた。それを見たSE経験(金融系)がある社会人大学院生の同期の女性が「ここにスペースを入れてみて」「もっと沢山、もっともっと」と言い出して、スペースを11個ほどコードに挟み込んだらエラーが消えた。怖かった 上記のスペース連続して入れるとエラーが消えたのはなぜだと思いますか?

  • エクセル表を取り込む方法

    パーソナル編集長のページにエクセルで作成した表をそのまま貼り付けられないか? ※OKWAVEより補足:「ソースネクスト株式会社の製品・サービス」についての質問です。