5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

VBS作成依頼

1 :FANKS:2008/08/05(火) 23:07:28
すみませんが、VBS全くの素人です。
本当に全くの素人なのにいきなり作れと言われ困っています。
参考例でもかまいませんので作っていただけませんか?

【作りたいもの】
あるエクセルのシート名がA支店とあり、シート内は、a営業所の行、b営業所の行、c営業所の行とあります。
このエクセルをVBSにドロップするとa営業所のエクセル、b営業所のエクセル、c営業所のエクセルと
シート内の営業所分を独立したエクセルとしてそれぞれ作りたい


2 :FANKS:2008/08/05(火) 23:10:58
補足ですが、a営業所の行、b営業所の行、c営業所の行は処理する月により
異なるのでエクセル内でいかに分岐させるかも含めて教えて頂けたら本当に助かります。
無理を言っているのは分かりますが、お願いいたします


3 :デフォルトの名無しさん:2008/08/05(火) 23:20:07
で、いくら出す?

4 :FANKS:2008/08/06(水) 00:12:35
申し訳ありませんが、無料でご教授願えませんか?
本当に申し訳ありません。

5 :デフォルトの名無しさん:2008/08/06(水) 00:22:31
このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。

アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。

6 :デフォルトの名無しさん:2008/08/06(水) 01:13:02
>>1

' hoge.vbs
MsgBox "派遣に手作業でやらせろ"


7 :デフォルトの名無しさん:2008/08/06(水) 01:33:58
>>1
> 本当に全くの素人なのにいきなり作れと言われ困っています。

相手が誰か知らんが「できない」と正直に言えよ。

あと削除依頼出しとけよ。

どうせ、単発質問スレなんかで答えなんて得られないからな。

8 :デフォルトの名無しさん:2008/08/06(水) 11:47:11
一つ思うが
VBSってMicrosoftに見捨てられた言語だよな?

9 :デフォルトの名無しさん:2008/08/06(水) 12:38:50
仕事を任される
 ↓
 ↓→→→すぐできる【解決】
 ↓
 そのままではできない→→→断る【解決】
 ↓
 ↓→→→自分でやる【解決】
 ↓
 誰かにやってもらう→→→金を払う【解決】
 ↓
 ↓
 ↓
 教えてもらう【間違い】→→→自力でできないんなら金を払って誰かにやらせるか断るかどっちか【解決】

10 :デフォルトの名無しさん:2008/08/06(水) 12:47:27
>>1の場合
 ・無理(?)な仕事でも自分でやりたい!手柄が欲しい!金も欲しい!女も欲しい!
 ・よーし、本買って頑張るぞ〜…の前に2ちゃんのボケどもにやらせてみるか
 ・VBS作成依頼…とでも書いとくか。馬鹿を装いつつ厨グラマーでもおだててコード書かせるかwww
 ・3 :デフォルトの名無しさん [↓] :2008/08/05(火) 23:20:07
で、いくら出す?

 おいおいおいおいおいおいおいおい、こっちは本買うのもめんどくせーから丸投げしてんだよ!
金なんか払うくらいだったら自分で本買ってるっつーの!
 ・まさかそんなこと書けるわけねーからまあ平謝りでもして誤魔化しておくか。
 ・6 :デフォルトの名無しさん [↓] :2008/08/06(水) 01:13:02
>>1

' hoge.vbs
MsgBox "派遣に手作業でやらせろ"

ったくウゼえなこいつら。俺にそんなコミュニケーション能力ねえし、もうだめだ。こんな馬鹿どもに少しでも期待した俺が間違ってたな。もういい死ね。

11 :デフォルトの名無しさん:2008/08/06(水) 18:20:35
仕様もつまらんしな。頭を使うところが何もない。もうちょっと面白ければ良かったのに。

12 :デフォルトの名無しさん:2008/08/06(水) 21:01:08
vbsを使うとノートン先生に怒られるとです・・・

13 :デフォルトの名無しさん:2008/08/08(金) 09:58:46
ビジネスSoft板にでも行けばいいと思う

14 :参考例:2008/08/17(日) 08:59:18
>>1-2
もう少し早くこのスレに気づいていれば良かったんだが。
元のExcelのA列に営業所名があるとして作成(a,b,cは営業所名)。

元Excelシート例:
  A B
1  a ・・・
2  b ・・・
3  a ・・・
4  c ・・・

'-------------ここから----------------
'出力先ディレクトリ
sdir = "C:\temp\"

'ドロップしたファイルの名前を格納する引数オブジェクト
set oarg = wscript.arguments

'Excelオブジェクト
set oexl = createObject("Excel.Application")

'元のExcelファイルを開く
set obookO = oexl.workbooks.open(oarg(0))

15 :参考例:2008/08/17(日) 09:00:04

'出力用Excelファイル作成
set obookA = oexl.workbooks.add
obookA.saveAs sdir & "a.xls"
set obookB = oexl.workbooks.add
obookB.saveAs sdir & "b.xls"
set obookC = oexl.workbooks.add
obookC.saveAs sdir & "c.xls"

'ワークシートのオブジェクト(各ファイルの第1ワークシートとする)
set osheetO = obookO.worksheets(1)
set osheetA = obookA.worksheets(1)
set osheetB = obookB.worksheets(1)
set osheetC = obookC.worksheets(1)

io = 0
ia = 0
ib = 0
ic = 0

eigyousho = "dummy"

16 :参考例:2008/08/17(日) 09:00:27
'メインルーチン
do until eigyousho = "" '空白のセルまで
io = io + 1
eigyousho = osheetO.cells(io, 1).value 'A列を取得
if eigyousho = "a" then
ia = ia + 1
osheetA.rows(ia).value = osheetO.rows(io).value
elseif eigyousho = "b" then
ib = ib + 1
osheetB.rows(ib).value = osheetO.rows(io).value
elseif eigyousho = "c" then
ic = ic + 1
osheetC.rows(ic).value = osheetO.rows(io).value
end if
loop

'保存
obookA.save
obookB.save
obookC.save

'Excelを終了(これがないと裏でExcelが開いたままになる)
oexl.application.quit

msgbox "OK"
'----------------ここまで----------------------
変更・修正したときに万一終了に失敗したら、タスクマネージャでEXCELまたはwscriptを強制終了します。

17 :参考例:2008/08/17(日) 09:28:26
1箇所修正:
'ワークシートのオブジェクト
set osheetO = obookO.worksheets(1)
           ↓
set osheetO = obookO.worksheets("A支店")

7 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)