検索結果

VBSで現在下記のようなコードを組んでいます。 動作としてはコードが組んであるVBSファイルにエクセルシートをドラック＆ドロップすると、ブックのパスが外れてファイル名の先頭に シート内のセルE5の文字がつくようになっています。 そしてそのファイル名に指定した文字がある場合 指定したフォルダへ移動されます。 今回行いたいのは、その移動したあとの処理で 移動したファイルをそのフォルダ内でコピーして 名前を変更したいです。 例えば移動してきたファイル名が #101-1test.xlsxだとして、そのファイルをコピーして ABC101-1_DEFG.xlsxという名前で同じフォルダ内にコピーしたい。 ファイルの中身は同じだけど、名前を変更して同じフォルダ内に ファイルを作成したいということです。 ちなみに移動してきた時の始めのファイル名、#〇〇〇-〇は必ずこの形です。 なので、頭のシャープと-1以降の文字を削除して 〇〇〇の手前につける文字と、-〇以降につける文字が指定できれば完璧です。 このようなことができるかわかりませんが、よろしくお願いします。 よろしくお願いします。 Option Explicit 'Excel 2013 Later Japenese Version Available 'REF: 'REF: '''///---定数の設定Set Enumuragion---///''' Const PWD="aaaaa" Const msoLanguageIDInstall = 1 '''///---変数の宣言---///''' Dim objArgs, I , strFile Dim objFile, objFolder,objPath,strScr Dim xlApp,Wb Dim objWShell : Set objWShell = Createobject("WScript.Shell") Dim FSO : Set FSO = Createobject("Scripting.FileSystemObject") '''///---ファイル処理開始 Start Document File Conversion---///''' Set objArgs = Wscript.Arguments For I = 0 to objArgs.Count-1 set objFile = FSO.GetFile(cstr(objArgs(I))) If Lcase(Left(FSO.GetExtensionName(objFile.Path) ,4) )="xlsx" Then Set xlApp =CreateObject("Excel.Application") If xlApp.Version < 14 Then xlApp.Quit: Set xlApp = Nothing:wscript.Quit xlApp.DisplayAlerts=False xlApp.Visible = False set wb=xlapp.WorkBooks.Open(objFile.Path,0,false,,PWd,,True,,false,false,,true,true) if wb.HasPassword=true then wb.Saveas objFile.Path,,"","",False else wb.Saveas objFile.Path,,Pwd,"",False End if Dim n n = wb.Worksheets(1).Range("E5").Value & "_" & wb.Name wb.close FSO.GetFile(objFile.Path).Name = n If Mid(objFile.name, 5, 2) = "-1" Then FSO.MoveFile objFile.path, "F:\A\" Else MsgBox objFile.Name & "　該当せず" End If set wb=nothing End If Next xlApp.DisplayAlerts=True xlApp.Quit set xlApp = Nothing

A4で作った物をA4に四分割印刷を指定通り1,1,1,1として四分割の指定をしても 左上角に一つだけ縮小され印刷します。以前は出来たのに何が悪いのでしょうか？ ※OKWAVEより補足：「EPSON社製品」についての質問です。

perl cgiを作っています。 ファイル（例えば.csv)をperl側で作って、 ユーザがローカルコンピュータのこのみの場所（あるいはwindowsなら「ダウンロード」に固定でも可）にダウンロードできるようにしたいのですが、ダウンロードさせる部分をどうコーディングすればよろしいでしょうか？

「野生のエルザ」の飼い主夫婦は、最後には動物に食い殺されたのでは、と思って各サイトを見ると、動物ではなく人間（妻はかつての使用人、夫は密猟者）に殺されたとあります。 なぜ、最後はエルザに殺されたというような風評がかつてはあったのでしょうか？

パソコンで作成したパワーポイントＡ4サイズをＡ３で出力したいのですがＡ4で印刷されます。 用紙サイズをＡ３にする以外に設定が必要なのでしょうか？ 文字などのサイズはＡ３サイズに拡大されていて、なので文字などが切れた状態でＡ４で出力されます。 ちなもに、モノクロとカラーで出力機が異なるのですが、モノクロはサイズをＡ３にしただけできちんとＡ３ででてきました。 どちらもエプソンです。 仕事で困っています。

どっちも体売って金を得てる。 売春は性病や暴力のリスク、労働はハラスメントや過労死のリスク。 どっちも似たようなものなのに、売春は違法で労働は合法。 なぜ？

住宅ローンについて教えてください 新築を購入して6年目になります 金利の安いところに変えたいと考えていますが 実際には金利は何％くらいが妥当なのでしょうか？ 借り入れは購入時に900万 返済期間は35年 月の支払いはボーナス払い無しで毎月32000円程です。

雑談的で主観で構いませんのでよろしくお願いします。 今までの事は部品の到着の関係でまだ進んでいませんが、新たにお聞きしたいことができました。 今回、過走行車のメンテでパーツを外していますが、普通ならスルッと取れるところが色々と固着していまして外すのがかなり大変でした。 オイルフィルターのゴムパッキンやスクーターの駆動系のガスケットにオイルを塗るとはよく言われているので、カムカバーのガスケットには中に付着している使用されたオイルを塗りました。 そしてこれがお聞きしたいのですが、スロットルボディとエアクリーナーを結ぶ硬質プラスチックの先端にある筒状のゴムパッキン(スロットルボディに繋がる部分)や、他に細かなホース類の何か所が外すのがかなり大変でしたので、再装着の際に何か塗りたいと思うのですが、これもオイルでよろしいのでしょうか？ 要は金属部分とゴム部分がくっつかないようにするという事です。 ちなみにエンジンオイルは2輪用のレッドフォックスの100％化学合成のです。 他に使えそうな手持ちのは、ネジ部に塗る焼き付き防止グリス(ヘンケル焼付防止潤滑剤アンチシーズ )か、高温対応のモリブデングリス(住鉱乾性被膜潤滑剤モリブデンコート5555)がありますが、それら3つの中に適していそうなものはありますか？ ゴムやＰＶＣ、プラスチック(ホースを突っ込む軸がプラスチックのとこもあります)への攻撃性や乾かず再脱着の際まで金属とゴムがくっつかないようなものを探しています。 なおかつできれば吸気系のとこは空気漏れが無く、塗ったもの自体が劣化してボロボロになって再脱着時にそれを取るのが大変じゃない方がいいです。 でも、一番はとりあえずくっつかないようになればいいです。 ホースは材質がＰＶＣみたいで、ゴムパッキンの方は一般的なゴムのような感じとしか分かりません。 上記3つの中で代用できるかもしれませんが、もし他に適してそうなものがあれば併せて教えてください 説明下手なので箇所等伝わらない部分がありましたら補足しますので、よろしくお願いします。

ユーチューブから音楽のみをダウンロードして、それをある程度 まとめて１枚のCD-Rに書きこむ方法を教えて下さい。 祖母が趣味でフォークダンスをしており、そこの代表者が 教室でのレッスンの様子をユーチューブにあげているのですが、練習のために そこから音楽だけをダンロードしてCD-Rに書きこんでほしいと 頼まれ困っています。私もネットでいろいろ検索してみましたが、 無料で、１番わかりやすい方法ありましたら、ぜひ教えて頂ければ 助かります。発表会までにとせかされ困っています。よろしくお願いいたします。

玄関ポーチの磁器タイルの写真です。 昨日まではなかったのに今日突然写真のようになってるのを見つけました。 近くで見ると鳥の糞に見えるのですがポトッと落ちた形跡はなくて目地だけがこのようになっています。直に臭いは嗅いでいませんが臭いが漂うことはありません。 玄関ポーチ全体ではなくて二箇所に集中して面積は一箇所に付きおおよそですが50センチ四方ぐらいです。 害があるのでしょうか。水で洗い流したら流れ落ちた先で問題が起きるのでしょうか。何らかの消毒とか必要でしょうか。

最近気がついたのですが、iPhoneで、ハンドミラーやどこでもミラーなど、 鏡系アプリを起動しても、全部何故か画面が真っ暗で何も映らなくなりました アプリ検索で「鏡」や「ハンドミラー」などで検索して、上位に来るアプリ を軒並みインストールしてみましたが、どれも画面が真っ暗です どうなっているのでしょうか？ios12、iPhoneは8を使っています。

非ステロイド性抗炎症鎮痛薬について書かれている記事を読みましたが、意味がわからないことがあり質問しました。 記事の一部で「疾患や外傷などによって組織損傷 を受けた局所に発痛物質のプロスタグランディン(PG)が生産されるので,ア ス ピリンやNSAIDsがPGの 生合成を抑制することにより、末梢受容レベルでの鎮痛作用を示す。」と書かれていましたが「末梢受容レベルでの」とはどういう意味ですか？

Discordというアプリに招待を受けたので、登録しました。 ですが、画面がピカピカ点滅のようになり、操作が出来ません。 au、Androidのスマホです。 重いのかと思い、いらないアプリを削除しました。 いらないアプリ自体3つ程しかありませんが、削除しました。 それでもピカピカします。 一度アンストして、またインストールしましたが変わりません。 バグがよくあるアプリのようですが、私のほうでは、バグだとしても初めてです。 また、一旦スマホを閉じてみましたが駄目でした。 このピカピカが納まる、又は映るにはどうしたら良いですか？ 困ってます。 宜しくお願い致します。

いつもお世話になっております。 エクセル2013です。 入力表のセルへの入力をリストからの2段階の選択入力（A列を選ぶとB列に対応する選択肢表示される）にしているのですが、A列は一番上から表示されるのですが、B列はセルをクリックしたときに開いてくる選択リストウィンドウに何も出ておらずいちいちバーを上に持ち上げる必要が有ります。 一番上の選択肢が表示されるような設定方法があると思うのですが見つけられないので教えてください。 複数の人で使うので何か表示されていないとバグと間違われるので。

結婚した主人が本当のタバコの喫煙家で、私もつられてグローを吸っています。以前はタバコが大嫌いでしたが、グローとかアイコスとか昔のタバコのようにタールが入っていないニコチンの入ったタバコを毎日15本吸うと、癌になる確率はどのくらいで、本当に肺が悪くなりますか？

DM-01Kを使用しています。 専用カバーは利用していません。 ロック画面に表示される時計の色は変更出来ないのでしょうか？ ロック画面の壁紙を白地のものにすると、時計も白字なので非常に見えにくくなります。別の色に変更したいのですが、やり方をご存じの方がおりましたら教えていただけないでしょうか？ ※OKWAVEより補足：「ドコモの製品・サービス」についての質問です。

one safe pc cleanerについて先日尋ねました。 懇切丁寧な回答をいただき感謝しています。 このことで続けて質問します。状況説明から。 １．インストールはしていない。 ２．タスクマネージャーを起動してもひっかからない。 ３．adw cleanerは実行してみた ４．再起動は何回か実行してみた ５．それでも突然画面を占拠して作業の邪魔をする。 　解決策をおしえてください。 ※OKWAVEより補足：「EPSON社製品」についての質問です。

実家の隣に保育園ができました。 その園では、ホーロー製のおまるを毎日外に出し干して？います。 これは何処の園でも行っている普通のことなのでしょうか。

職場で上司にはんこを押してほしくて、メモを机上に置く場合、 「押印お願い致します。」と「捺印お願い致します。」ではどちらが正しいのでしょうか。 回答よろしくお願いいたします。

大和撫子な女性って男性とは対等な存在ではないですよね？男第一で従うのですから。男に従うのが日本人女性の理想像なんでしょうか。 対等さが主流の世の中、そりゃいなくなりますよね。