自身のファイルを読み取り専用で新たに立ち上げて、シートを選択したいのですが
Private Sub cmd_読み取り専用で開く_Click()
Dim xlApp As Object
Dim xlBook As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(ActiveWorkbook.FullName)
xlApp.Visible = True
xlApp.xlBook.Sheets("メイン").Select
Set xlApp = Nothing
Set xlBook = Nothing
End Sub
だと
xlApp.xlBook.Sheets("メイン").Selectでエラーになります。
文法が間違ってると思うのですが、修正案をご教授ください。
EXCEL VBAでテキストファイルを読み込み、Spirit関数にて項目内容を書き出しています。
下記のコードの日付部分は1日～31日まで繰り返しになります。
Dim maxRow As Integer
Dim maxCol As Integer
Dim i As Long
Dim mytxtfile As String, myStr As String
Dim myRange As Range
Dim mySp() As String
Dim sh1 As Worksheet
On Error GoTo myError
mytxtfile = "D:\明細.TXT"
Set sh1 = Worksheets("元データ")
Set myRange = sh1.Range("A1")
sh1.Cells.Clear
Open mytxtfile For Input As #1
Do Until EOF(1)
Line Input #1, myStr
myRange.Offset(i, 0).Value = myStr
myStr = Replace(myStr, """", "")
mySp = Split(myStr, ",")
myRange.Offset(i, 1).Value = mySp(0) '卸名
myRange.Offset(i, 2).Value = mySp(1) 'コード
myRange.Offset(i, 3).Value = mySp(2) 'フラグ
myRange.Offset(i, 4).Value = mySp(6) '納品先
myRange.Offset(i, 5).Value = mySp(7) '店舗
myRange.Offset(i, 6).Value = mySp(23) '日付
---------ここから
myRange.Offset(i, 7).Value = mySp(26) '1日_金額A
myRange.Offset(i, 8).Value = mySp(27) '1日_金額B
myRange.Offset(i, 9).Value = mySp(34) '1日_金額C
--------ここまでが 1日分です。これが31日まで続きます。
i = i + 1
Loop
Close #1
'31日までのデータが無い場合のエラーを無視する（データが存在する日まで書き出す）
myError:
Resume Next
sh1.Range("A:A").Delete 'txt取込作業列を削除
End Sub
カンマ区切りの位置は、15ずつ増えますので
繰り返し処理したいのですが、うまくいきません。
最初は、金額A だけの書き出しだったため、
1行ずつ書いていたのですが、金額B、Cの列も必要になりました。
for next で すっきりした書き方を教えていただけないでしょうか？
宜しくお願い致します。
いつも拝見させていただいてます。
今回Excel VBAでタイムスケジュールを作成したところ、まったくわけのわからないエラーが発生してしまい途方に暮れており、皆様のお力をお借りしたく投稿させていただきます。
エラーの内容は簡単に言うと Function プロシージャの戻り値がなくなってしまう(0になっている)ことです。
ESC = ESColumn(EventStart)
----------------------------------
Function ESColumn(TimecoluConv As Date) As Integer
Select Case TimecoluConv
Case "8:00:00"
ESColumn = 2
Case "8:10:00"
ESColumn = 3
Case "8:20:00"
ESColumn = 4
・・・
End Select
End Function
と、このようなコードで入力された時間を数値に変換しているのですが、
繰り返し処理をしているといきなり戻り値が0になってしまいます。
今回は8:00を6回取得した後、8:10を変換しようとしたら戻り値が0になっていました。
戻り値を使用して、セルを選択するため、そのタイミングでエラーになります。
なぜ繰り返し処理の途中で発生するのでしょうか。
解説と対策をご教示していただけると大変助かります。
よろしくお願いします。
お世話になります。
文字列の分解についてお聞きします。
環境はVB.NET2008です。
Private Sub Main(ByVal CmdArgs() As String)
Dim cmds() As String
cmds = System.Environment.GetCommandLineArgs()
End Sub
コマンドライン引数で以下のように文字列を取得しています。
("起動exe", "/KEY=○○○/ テーブル名=△△△")
この文字列を元に、
変数Ａに○○○を変数Ｂに△△△を代入したいのですが、どうやるのでしょうか？
ご教示願います。
・計算機アプリケーションです
・テキストボックスは数値と「-（マイナス）」「.（小数点）」以外は入力できないように制御しています。
・テキストボックス１と２に入力したものをボタン１を押して計算し、ラベル２に表示します。
テキストボックスに数値以外が、もしくは「3-2」「.32」「32.」等の不正な値が入った場合に、メッセージボックスを出して入力の誤りを指摘するプログラムを書きたいです。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
・・・・・・・・・・・・・・・・・・・・・・・・・・・・
If Not IsNumeric(TextBox1.Text) Then
MsgBox("不正な値です", vbExclamation, "ERROR")
Label2.Text = "ERROR"
ElseIf Not IsNumeric(TextBox2.Text) Then
MsgBox("不正な値です", vbExclamation, "ERROR")
Label2.Text = "ERROR"
End If
End Sub
色々と調べてみて、IsNumericが使えそうだったのでこのプログラムを書いたのですが、
これだと「-」や「.」だけを書いた場合にはちゃんとエラーメッセージが出ますが、
「32-」「.32」「32.」等は数字だけを認識して、計算結果を表示してしまいます。
何が足りないのか、もしくは使用している関数を変えたほうがいいのか、アドバイスいただければ幸いです。
以上、ご回答宜しくお願い致します。
説明が下手で申し訳ございませんが、宜しくお願い致します。
sheet(1)に20個のボタンがあります。
ボタンをクリックすると、別のシートが開きます。
開いたシートにも複数のボタンがあり、そのうちの任意のボタンをクリックすると、そのボタンの値がsheet(1)のそれぞれのボタンに対応したセルに入力される、という動作を実現したいと思っています。
現状、下記のようなコードで目的の動作は実現できてはいるのですが、各ボタンそれぞれにシートを作っているような状況です。(データ自体は全く同じ内容のものが、計20シート)
たぶん、もの凄く頭の悪い事をやっているんだろうと思います。
sheet(1)を除いた各シートの入力データ自体は全く同じなので、シート一枚で出来るんじゃないのかなと思い、ネットや本で調べながら色々試してみたのですが、どうも上手く行きません。データが同じでも、sheet(1)のクリックしたボタンによって入力するセルを変えなければならないのが問題です。
sheet(1)のボタンとセルの関連付けや、sheet(1)のどのボタンを押したのかの判別ができればいいのかなと思って調べてみても、初心者にはよく理解できず、もう何週間もチャレンジしているのですがお手上げです。
上級者の方の知恵をお借りできれば幸いです。
Sub sheet2を開く()
Worksheets(2).Select
End Sub
Sub 入力1()
Worksheets(1).Range("F8") = "データ1"
Worksheets(1).Select
End Sub
Sub 入力2()
Worksheets(1).Range("F8") = "データ2"
Worksheets(1).Select
End Sub
Sub 入力3()
Worksheets(1).Range("F8") = "データ3"
Worksheets(1).Select
End Sub
Sub sheet3を開く()
Worksheets(3).Select
End Sub
Sub 入力1()
Worksheets(1).Range("H8") = "データ1"
Worksheets(1).Select
End Sub
Sub 入力2()
Worksheets(1).Range("H8") = "データ2"
Worksheets(1).Select
End Sub
Sub 入力3()
Worksheets(1).Range("H8") = "データ3"
Worksheets(1).Select
End Sub
Sub sheet4を開く()
Worksheets(3).Select
End Sub
Sub 入力1()
Worksheets(1).Range("M8") = "データ1"
Worksheets(1).Select
End Sub
Sub 入力2()
Worksheets(1).Range("M8") = "データ2"
Worksheets(1).Select
End Sub
Sub 入力3()
Worksheets(1).Range("M8") = "データ3"
Worksheets(1).Select
End Sub
・
・
・
・
・
