ブックマーク / okwave.jp (6)

  • VBScriptでファイル圧縮 - OKWAVE

    #1さんの指したURLのスクリプト、完璧です。 しかしコメントが無いと、確かに解読しづらいですねー わかりやすいように、コメントを追加し、パラメータも改造いたしました。 ZIP.VBSでは「optind」によって、パラメータのアイテムを切り替えているようですね。 質問者さんは、圧縮だけでよいみたいなので、汎用性を無くし、コードを抜粋いたします。 さらに「書庫ファイル名は固定」にしました。 ※サンプルの使用方法の注意!!! 以下のコードを、そのままテキストにコピペでは使えません。 全角スペースを利用しています。 対策は下の3つの方法から、どれかを利用してください。 ----------------------------------------------------------------- 1.テキストにコピペしてから、「全角スペース2個」を「TAB」に変換 2.テキストにコピペしてから

    VBScriptでファイル圧縮 - OKWAVE
    endlessdoor
    endlessdoor 2012/08/08
    zipを作成するVBS
  • 【Excel】 シート名を指定する式 - OKWAVE

    こんにちは sheet1のA1に「sheet2」と入力したときに、 sheet1のA2に「sheet2のA1の値」を sheet1のA1に「sheet3」と入力したときには、 sheet1のA2に「sheet3のA1の値」を表示する場合の、 sheet1のA1の式を教えて下さい。 Excel2003です。 よろしくお願いいたします。

    【Excel】 シート名を指定する式 - OKWAVE
  • JTableクリック時の処理 - OKWAVE

    はずした回答だったらすみません。<(_ _)> また「JTableの内容を取得する」という意味も取り違えていたらすみません。 とりあえずJTableはaddMouseListenerというメソッドが使えますからそれで マウスでのイベントを定義できるはずですし、JBuilder4を使用しているなら 設計画面のインスペクタにイベントというタブがありますからそこからmouseClicked のイベントを自動的にJBuilder4が書いてくれるはずです。 実際書くならこんな感じでしょうか?ちなみに全然試していないので自信は ありません。(^^ゞ jTable1.addMouseListener(new java.awt.event.MouseAdapter() { public void mouseClicked(MouseEvent e) { //選択行の行番号を取得します int ii = j

    JTableクリック時の処理 - OKWAVE
  • SQL Server に画像を登録 - OKWAVE

    いつも、お世話になります。 SQL Server 2000 内のDBに画像ファイルを登録したいのですが、出来るかどうか ? また、出来る場合はその手順を どなたか 教えていただけないでしょうか。

    SQL Server に画像を登録 - OKWAVE
  • SQLServer2005認証変更について - OKWAVE

    スーツのデザイナーでプログラマではありません。 素人がシャシャリ出るのは僭越ですが、以下は、会社のシステム関係者のために私が書いた一文からの抜粋です。 osql でオプションを指定するには、osql の後にスイッチと呼ばれる引数を指定します。なお、スイッチ一覧については「Books online-osql ユーティリティ」を参照して下さい。ここでは、「OOOOO/OOOOOOO構築技法」で登場したスイッチに限定して説明します。 サーバースイッチ(-S) -S コンピュータ名 … 指定されたコンピュータ上の既定のインスタンスに接続します。 (例) osql -E -S LAVIE -i adduser.sql -o osql.txt -S を省略した場合 … 既定のインスタンスに接続します。 認証スイッチ(-E、-U、-P) -E … Windows のログインア カウントを用いて接続を要求

    SQLServer2005認証変更について - OKWAVE
  • VBでexcelのプレビュー画面表示 - OKWAVE

    Private Sub Form_Click() Dim xlApp As Object Dim xlBook As Object Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("c:\tmp\hoge.xls") xlApp.Application.Visible = True xlBook.ActiveSheet.PrintPreview xlApp.Application.Visible = False xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing End Sub

    VBでexcelのプレビュー画面表示 - OKWAVE
  • 1