下記の方法でCell(1,1)、から読むことができました
そこで今度書き込みなのですが
With xlBk.Worksheets("Sheet1")
'Debug.Print .Cells(1,1)
.Cell(1,2) = "data"
End With
としても、エクセルシートには書かれていないのですが
書く方法を教えてください
ただ、下記の
Open(Filename:=strFile, UpdateLinks:=0)
はエクセルをOpenする時
「このブックは他のデータソースへのリンクがふくまれています」
とメッセージがでるので、UpdateLinks:=0、と入れています
よろしくおねがいします
'---------------------------------
Dim xlApp As Excel.Application
Dim xlBk As Excel.Workbook
Dim strFile As String
strFile = "C:\Sample\Book1.xls"
Set xlApp = CreateObject("Excel.Application")
Set xlBk = xlApp.Workbooks.Open(Filename:=strFile, UpdateLinks:=0)
With xlBk.Worksheets("Sheet1")
Debug.Print .Cells(1,1)
End With
xlBk.Close False
xlApp.Quit
Set xlApp = Nothing
'----------------------------------
いつもお世話になっております．
Excelの第3列の2行目～2027行目までのセルに yyyy/mm/dd と入力されています．
dd （日付）を取り除き，yyyy/mm という入力に直したいのですが，方法が分からずに困っております．
Sub test()
Dim row As Integer
For row = 2 To 2027
Sheets("Sheet1").Cells(row, 3).NumberFormat = "yyyy/mm"
Next
End Sub
上記のようにしてみたのですが，セルの表示形式が変わっただけで，
数式バーの表示を見てみると実質的に dd が残っています．
良い方法をご存知の方がいらっしゃいましたら，
ご教示の程どうぞ宜しくお願いいたします．
お世話になります。
GetObjectで取得したWorkbookのいずれかのシートにs_rngと名前が定義されたRangeがあるとします。このs_rngがあるシート名を取得するにはどうしたらよいでしょうか？
Set Obj = GetObject(fPath)
With Obj.Worksheets("？").Range(s_rng)
～処理～
End With
のようにしたいのですが？の部分がうまく取得できなくて困っています。
GetObjectを使わずに
Set sFile = Workbooks.Open(Filename:=fPath)
With Range(s_rng)
～処理～
End With
とすればシート名がわからなくてもできるのですが、処理するファイル数が多いのでなるべくファイルを開けずにやりたいと思っています。よい方法があったらご教示ください。
