sunawachi2のプロフィール

レスポンシブ対応でPCとスマホで違う画像を使う方法はたくさん有りますが。 最近現場ではどの方法を取っていますか？ srcsetでいけるようにもうなっていますかね？ IE8がまだかな？

Excelファイル（D:\test.xls）を再起動するvbスクリプトを作成し、 ４時間おきに実行するタスクスケジュールを設定したいと思います。 ※6:00、10:00、14:00、18:00、22:00、2:00のタスクスケジュールを作成し、 　vbスクリプトを実行。 次のタスクスケジュールが実行されるまでの４時間は、Excelファイル（D:\test.xls）は 開いたままの状態です。 なので、vbスクリプトで、まずExcelファイル（D:\test.xls）が開いている場合は、 「D:\test.xls」を一旦（上書き保存なしで）閉じて、再度、「D:\test.xls」を開きたいと思っています。 ※他のExcelファイルが開いている場合は、「D:\test.xls」のみ閉じる。 「D:\test.xls」を開くスクリプトはできたのですが、「D:\test.xls」を閉じるところがわかりません。 どなたか教えていただけないでしょうか。 【vbスクリプト】----------------------------------------- '「D:\test.xls」が開いている場合は閉じる 　？？？ '「D:\test.xls」を起動する Dim xlApp Dim xlWbk Set xlApp=CreateObject("Excel.Application") xlApp.Visible=True Set xlWbk=xlApp.Workbooks.open("D:\test.xls",True) ---------------------------------------------------------

Excelファイル（D:\test.xls）を再起動するvbスクリプトを作成し、 ４時間おきに実行するタスクスケジュールを設定したいと思います。 ※6:00、10:00、14:00、18:00、22:00、2:00のタスクスケジュールを作成し、 　vbスクリプトを実行。 次のタスクスケジュールが実行されるまでの４時間は、Excelファイル（D:\test.xls）は 開いたままの状態です。 なので、vbスクリプトで、まずExcelファイル（D:\test.xls）が開いている場合は、 「D:\test.xls」を一旦（上書き保存なしで）閉じて、再度、「D:\test.xls」を開きたいと思っています。 ※他のExcelファイルが開いている場合は、「D:\test.xls」のみ閉じる。 「D:\test.xls」を開くスクリプトはできたのですが、「D:\test.xls」を閉じるところがわかりません。 どなたか教えていただけないでしょうか。 【vbスクリプト】----------------------------------------- '「D:\test.xls」が開いている場合は閉じる 　？？？ '「D:\test.xls」を起動する Dim xlApp Dim xlWbk Set xlApp=CreateObject("Excel.Application") xlApp.Visible=True Set xlWbk=xlApp.Workbooks.open("D:\test.xls",True) ---------------------------------------------------------

EXCEＬシートの内容をシート単位でＣＳＶ化したいと思います。 その際、 " （ダブルクォーテーション） を除去したいと思いますが、その方法を教えて頂けないでしょうか。 すみませんがよろしくお願いします。

開いているエクセルファイルが多数あるのですが、今アクティブになっているファイルだけを、上書き保存→閉じる→指定したフォルダに移動までを自動で行なわせたいです。 ・上書き保存はマクロの記憶でできるのですが、閉じるをしてしまうとマクロを終了できない、指定したフォルダに移動はマクロではできなく、教えて下さいませ。ファイルの移動は、名前を付けて保存ではなく、そのファイル自体を移動させたいです。 移動させたいファイルは決まってなくて、その都度変わります。 Sub Macro1() ActiveWorkbook.Save End Sub ・現時点、開いているファイルの保存場所 C:\Documents and Settings\aaa\デスクトップ\作業用 ・移動させたいフォルダ C:\Documents and Settings\aaa\デスクトップ\作業用\保存用