Results of 1 - 1 of about 14708 for VBA�������������� (0.003 sec.)
- [[20130412113934]]
- #score: 3410
- @digest: 1ade9a8730d7feaa40007eb8d81727b2
- @id: 62067
- @mdate: 2013-04-12T05:33:37Z
- @size: 1722
- @type: text/plain
- #keywords: 年太 (11606), tips77 (6766), 万年 (6517), 断基 (4139), （万 (2322), 一貫 (2202), ン情 (1956), 境な (1938), wikipedia (1669), が. (1538), version (1255), チン (1104), プ→ (1102), officetanaka (1036), 索方 (1027), 素早 (967), 方針 (944), ーチ (926), 張子 (895), 為の (823), キッ (805), 環境 (800), 子が (745), 拡張 (732), 判断 (685), ジョ (669), 太郎 (657), 判別 (631), 混在 (580), 基準 (567), ヘル (549), file (549)
- 『VBAでOS検索する方法』（万年太郎）
久し振りの投稿です。 WinXPとWin7が混在する環境でExcel fileを作成する際、VBAプログラムを組み込んだfileがXp 環境なら、拡張子が.xls, Win7環境なら拡張子が.xlsm と判別して上書き保存出来るVBAルーチンを考えているのですが、その為の検索方法ってあります? 例えばExcel2003 のメニューではヘルプ→バージョン情報が画面に出てくるのですが、それをVBAで認識する為の方法がわからないのです。 取り合えずCellに2003と記入したfileをベースにして下記のVBAを組んでみました。 Sub 検索（） Dim OS as Integer OS=cells(1,1).value If OS=2003 then Workbooks("2003.xls").Save Else Workbooks("2003.xls").SaveAs Filename:="2010.xlsm" End Win Xp,Win7/ Excel2003,excel2010 ---- 判断基準は XP か 7 なのですか? 起動している EXCEL が 2010 か 2003 で判断したほうがよいように思いますけれど。 http://officetanaka.net/excel/vba/tips/tips77.htm If Val(Application.Version) < 12 Then MsgBox "このEXCELは EXCEL2007 より前のバージョンです。" Else MsgBox "このEXCELは EXCEL2007 以降のバージョンです。" End If (Mook) ---- 素早いレスありがとうございます。 判断基準をどちらかに絞り、一貫した方針を持った方がいいいのですね? 取り敢えず上記のルーチンで試してみます。m(_ _)m （万年太郎） ---- Excelのバージョンについてつたない質問です。 http://officetanaka.net/excel/vba/tips/tips77.htm では2007までしか出ていませんが、 2010は13かな?と思い、ヘルプで見たら14になっていました。つまり、13はパスされているのですか? (万年太郎） ---- このあたりをご参照に。13 は忌み数としてスキップされたようです。 http://ja.wikipedia.org/wiki/Microsoft_Office (Mook) ---- よーくわかりました。Mookさん、ありがとうございます。v(^^) (万年太郎）... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201304/20130412113934.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97035 documents and 608021 words.
訪問者：