どこがおかしかったのでしょうか？
「補正案と意見書案を作成して送ってください」というレターを作ろうとして
Please make a amendment plan and an argument plan and send them to us.
という文を作ったら。
Please provide us your proposed response.
と直されました。
どこがおかしかったのでしょうか？
アメリカから来た経済学者の学会というか、講演会に行きました。そこでその学者さんが「How Long can the Bank of China continue to STERILIZE international reserve increases?」と聞いていたのですが。。。この質問が全く分からずココから学会の内容が全く分からなくなってしまいました。これはどういう意味なのでしょうか?経済も語学もわからない身ではりきって行ってしまい、無知なのはわかっていますが…sterilizeとは除菌する、という意味だと思っておりやはり調べてみたらその通りですが、そうなると意味が全く理解できません。
アメリカから来た経済学者の学会というか、講演会に行きました。そこでその学者さんが「How Long can the Bank of China continue to STERILIZE international reserve increases?」と聞いていたのですが。。。この質問が全く分からずココから学会の内容が全く分からなくなってしまいました。これはどういう意味なのでしょうか?経済も語学もわからない身ではりきって行ってしまい、無知なのはわかっていますが…sterilizeとは除菌する、という意味だと思っておりやはり調べてみたらその通りですが、そうなると意味が全く理解できません。
機械英語なのですが general alginment とは？
英語の翻訳をやっているところです。"general alignment" とは
ぴったりする日本語訳はありますか？
また、general alignment とは具体的にはどのような状況を示すのでしょうか。
直訳は「おおむね直線状」ですか？
the components in general alignment というフレーズなのですが、どういう
状況をしめしているでしょうか。
On Timeメソッド？で更新されません。
現在Web上にあった例を参考に
下記の様にホワイトボード解析シートのA1セルに
20秒ごとに現在時刻を表示させています。
これを応用して、違うシートに
１７：００に天気というマクロを実行するよう
作成したのですが上手くいきませんでした。
Sub Auto_Open()とSub auto_close()のtargetTimeを
targetTime = TimeValue("17:00")
Macro7を天気
としたのですが、なぜ更新されなかったか分かる方がいらっしゃいましたら
ご教授下さい。
Sub Auto_Open()
Dim TargetTime, WaitTime
TargetTime = Now + TimeValue("00:00:01")
WaitTime = TimeValue("00:00:10")
Application.OnTime TargetTime, "Macro7", WaitTime
End Sub
Sub Macro7()
On Error Resume Next
Worksheets("ホワイトボード解析").Range("A1").Calculate
Application.OnTime Now + TimeValue("00:00:20"), "Macro7", TimeValue("00:00:10")
'↑TimeValueの最初の方をへんこうする事で時間が変わる
End Sub
Sub auto_close()
Dim i As Integer, TargetTime
On Error Resume Next
For i = 1 To 10
TargetTime = Now + TimeValue("00:00:" & Application.Text(i, "00"))
Application.OnTime TargetTime, "Macro7", , False
Next i
End Sub
VBScriptでのExcelブックのプロパティ参照について
先達のみなさまこんにちは。
VBScript(ExcelVBAではなく)を使って、Excelブック内のName
(Excelで、[挿入]-[名前]-[定義...]で表示される一覧)
を削除したいと思いコーディングしてみましたが、実行すると
ブックのBuiltInプロパティを参照しようとする箇所で
エラーとなってしまいます。
エラーメッセージは「オブジェクトでサポートされていない
プロパティまたはメソッドです。:'objName.BuiltIn'」と
表示しています。
次のようなコードです。
***
Option Explicit
Sub DelNames()
Dim objArgs
Dim objXls
Dim objBook
Dim objName
Dim I
Set objArgs = WScript.Arguments
Set objXls = CreateObject("Excel.Application")
Set objBook = objXls.ActiveWorkbook
For I = 0 to objArgs.Count - 1
' 引数内容確認
Wscript.Echo objArgs(I)
objXls.Workbooks.Open objArgs(I)
objXls.Visible = True
For Each objName in objXls.ActiveWorkbook.Names
If (objName.BuiltIn = True) Then
objName.Delete
End If
Next
Next
Set objXls = Nothing
Set objBook = Nothing
Set objName = Nothing
End Sub
***
これをlesson03.vbsとして保存し、これを呼び出すwsfファイルを作成しました。
***
<job id = "DelNamesDD">
<script language = "VBScript" src = ".\lesson03.vbs"></script>
<!-- Excel参照設定 -->
<reference guid="{00020813-0000-0000-C000-000000000046}"></reference>
<!-- メイン処理 -->
<script language = "VBScript">
Option Explicit
Call DelNames()
</script>
</job>
***
たとえばこれをDelName.wsfとして保存し、DelName.wsfにExcelファイル(*.xls)
をドラッグドロップして、「ビルトインではない」名前を削除させたい、と
考えたのです。
しかし、
If (objName.BuiltIn = True) Then
の部分で上記のエラーとなってしまい、解決方法がわかりませんでした。
解決方法を教えていただきたくよろしくお願いいたします。
利用しているExcelのバージョンは2003(SP3)、WSHのバージョンは5.6
です。OSはWindows XP SP3です。
お手数をおかけしますが、よろしくお願い申し上げます。
